Retro1.org codex

*DECK     NVFIIAP 
      PROC NVFIIAP; 
# TITLE - INTIALIZATION ABORT PROCEDURE.                               #
      BEGIN 
# 
**    NVFIIAP - INITIALIZATION ABORT PROCEDURE. 
* 
*     D.K. ENDO    82/06/11 
* 
*     THIS PROCEDURE PREVENTS NVF TO BE RESTARTED WHEN IT ABORTS. 
* 
*     PROC NVFIIAP
* 
*     ENTRY        1. NONE. 
* 
*     EXIT         1. NONE. 
* 
# 
# 
****  PROC NVFIIAP - XREF LIST BEGINS.
# 
      XREF
        BEGIN 
        PROC ABORT;          # CAUSE ABORT WHEN CALLED                 #
        PROC RSJCR;          # RETRIEVE/SET JOB CONTROL REGISTER       #
        END 
# 
****
# 
 
 
#                                                                      #
#                            NVFIIAP CODE BEGINS HERE                  #
#                                                                      #
 
 
# 
*     SET JOB CONTROL REGISTER TO ONE TO CAUSE THE LOOP TO CALL NVF 
*     TO ONLY BE EXECUTED ONCE. 
# 
 
 
      RSJCR(1,1,0); 
 
 
# 
*     ABORT THE JOB.
# 
 
 
      ABORT;
 
 
      RETURN;                # **** RETURN ****                        #
 
      END # NVFIIAP # 
      TERM