Retro1.org codex

*DECK NVFLRAP 
OVERLAY(06,00)
USETEXT TXINAA
USETEXT TEXTSS
USETEXT TXINNVF 
PRGM NVFLRAP; 
# TITLE NVFLRAP - A-A INCALL SM PROCESS OVERLAY. #
      BEGIN #NVFLRAP# 
 
# 
**    NVFLRAP - A-A INCALL SM PROCESS OVERLAY.
* 
*     C. BRION          82/10/03. 
* 
*     THIS PROGRAM PROVIDES THE SKELETON FOR THE A-A INCALL SM
*     PROCESSING OVERLAY AND WHEN ENTERED, TRANSFERS CONTROL TO THE 
*     SPECIFIED ENTRY POINT.
* 
*     PRGM NVFLRAP
* 
*     ENTRY:  
* 
*       OVENUM - NUMBER OF ENTRY POINT TO EXECUTE.
* 
*     EXIT: 
* 
*       THE SPECIFIED ENTRY POINT HAS BEEN EXECUTED AND THE NECESSARY 
*       FUNCTIONS HAVE BEEN PERFORMED.
* 
# 
 
# 
****  PRGM NVFLRAP XREF LIST. 
# 
 
      XREF
        BEGIN 
        PROC NVFARAP;                    # PROCESS INCALL REQUEST SM #
        LABEL SSORTN; 
        END 
 
# 
****
# 
 
      SWITCH EPSWT:EPRAP
        LLARAP:NORAP; 
 
# 
*     **** PRGM NVFLRAP ENTRY START ****
# 
 
      GOTO EPSWT[OVENUM]; 
 
LLARAP: 
 
      NVFARAP;
      GOTO ENDSWT;
 
ENDSWT: 
      GOTO SSORTN;
 
      END #NVFLRAP# 
 TERM 
*ENDIF