Retro1.org codex

*DECK NS$N13
USETEXT NAT$NS
PROC NS$N13(ERRCODE);        # PROCESS NPU/DT/N (START)                #
 
# TITLE NS$N13 - PROCESS NPU/DT/N (START).                             #
 
      BEGIN    # NS$N13 # 
# 
**    NS$N13 - PROCESS NPU/DT/N (START).
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE PROCESS THE NPU/DT/N (START).
* 
*     PROC NS$N13(ERRCODE)
* 
*     ENTRY:  
*       NPU TABLE ORDINAL.
* 
*     EXIT: 
*       ERRCODE.
* 
*     METHOD: 
*       CLEAR ERRCODE.
*       CLEAR NPU/DT/R RETRY COUNT. 
*       PROCESS NEXT XPCB DIRECTIVE.
* 
# 
 
      ITEM ERRCODE    U;     # ERROR CODE                              #
 
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;         # TRACE PROCEDURE CALL                    #
        END 
      $END
 
      XREF
        BEGIN 
        PROC NS$XPD;         # PROCESS NEXT XPCB DIRECTIVE             #
        END 
 
CONTROL EJECT;
 
      $BEGIN
      NS$DBG("N13");         # TRACE CALL                              #
      $END
 
      ERRCODE = 0;
      NAT$RETRYS[0] = 0;
      NS$XPD(ERRCODE);                 # PROCESS NEXT XPCB DIRECTIVE   #
 
      RETURN; 
      END   # NS$N13 #
      TERM