Retro1.org codex

*DECK     NVFLAEP 
OVERLAY(02,00)
USETEXT TEXTSS
USETEXT TXINNVF 
PRGM NVFLAEP; 
# TITLE NVFLAEP - APPLICATION AND EVENT PROCESSING OVERLAY.   # 
 
      BEGIN  # NVFLAEP #
# 
**    NVFLAEP - APPLICATION AND EVENT PROCESSING OVERLAY. 
* 
*     D. G. DEPEW.           82/06/21.
* 
*     THIS PROGRAM PROVIDES THE SKELETON FOR THE APPLICATION AND ENENT
*     PROCESSING OVERLAY AND, WHEN ENTERED, TRANSFERS CONTROL TO THE
*     SPECIFIED ENTRY POINT.
* 
*     PRGM NVFLAEP
* 
*     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 NVFLAEP - XREF LIST. 
# 
      XREF
        BEGIN 
        PROC NVFICNE;        # COMPLETE NVF EXECUTION                  #
        PROC NVFOLNE;        # LOG NETWORK(HOST) EVENTS                #
        PROC NVFSDQE;        # DISPATCH APPLICATION STATUS QUEUE ENTRY #
        LABEL SSORTN;        # OVERLAY RETURN POINT IN SERV + SCHED    #
        END 
# 
****
# 
 
 
      SWITCH EPSWT: EPAEP    # ENTRY POINT SWITCH                      #
        LLSDQE: NSDQE,       # DISPATCH APPLICATION STATUS QUEUE ENTRY #
        LLOLNE: NOLNE,       # LOG NETWORK(HOST) EVENTS                #
        LLICNE: NICNE;       # COMPLETE NVF EXECUTION                  #
 
 
 
 
 
      GOTO EPSWT[OVENUM]; 
 
 
LLSDQE: 
      NVFSDQE;               # DISPATCH APPLICATION STATUS QUEUE ENTRY #
      GOTO ENDSWT;
 
 
LLOLNE: 
      NVFOLNE;               # LOG NETWORK(HOST) EVENTS                #
      GOTO ENDSWT;
 
 
LLICNE: 
      NVFICNE;               # COMPLETE NVF EXECUTION                  #
 
 
ENDSWT: 
      GOTO SSORTN;
 
 
      END  # NVFLAEP #
 
      TERM