Retro1.org codex

*DECK     NVFLAAC 
OVERLAY(01,00)
USETEXT TEXTSS
USETEXT TXINNVF 
PRGM NVFLAAC; 
# TITLE NVFLAAC - APPLICATION TO APPLICATION CONNECTION OVERLAY.   #
 
      BEGIN  # NVFLAAC #
# 
**    NVFLAAC - APPLICATION TO APPLICATION CONNECTION OVERLAY.
* 
*     D. G. DEPEW.           82/06/16.
* 
*     THIS PROGRAM PROVIDES THE SKELETON FOR THE A-A CONNECTION 
*     PROCESSING OVERLAY AND, WHEN ENTERED, TRANSFERS CONTROL TO THE
*     SPECIFIED ENTRY POINT.
* 
*     PRGM NVFLAAC
* 
*     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.
* 
*     NOTE    AT TIME OF INITIAL WRITING THERE IS ONLY ONE DEFINED
*             ENTRY POINT IN THIS OVERLAY.  HOWEVER, WITH THE ADVENT OF 
*             INTER-HOST A-A CONNECTIONS, MORE ENTRY POINTS WILL OCCUR. 
# 
 
# 
****  PRGM NVFLAAC - XREF LIST. 
# 
      XREF
        BEGIN 
        PROC NVFADQE;        # DISPATCH A-A CONN INPUT QUEUE ENTRY     #
        LABEL SSORTN;        # OVERLAY RETURN POINT IN SERV + SCHED    #
        END 
# 
****
# 
 
 
      SWITCH EPSWT: EPAAC    # ENTRY POINT SWITCH                      #
        LLADQE: NADQE;       # DISPATCH A-A CONN INPUT QUEUE ENTRY     #
 
 
 
 
 
      GOTO EPSWT[OVENUM]; 
 
 
LLADQE: 
      NVFADQE;               # DISPATCH A-A CONN INPUT QUEUE ENTRY     #
      GOTO ENDSWT;
 
 
ENDSWT: 
      GOTO SSORTN;
 
 
      END  # NVFLAAC #
 
      TERM