Retro1.org codex

*DECK NS$N08
USETEXT NAT$NS
PROC NS$N08(ERRCODE);        # PROCESS NPU/DT/N (LOAD)                 #
 
# TITLE NS$N08 - PROCESS NPU/DT/N (LOAD).                              #
 
      BEGIN    # NS$N08 # 
# 
**    NS$N08 - PROCESS NPU/DT/N (LOAD). 
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE PROCESS THE NPU/DT/N (LOAD). 
* 
*     PROC NS$N08(ERRCODE)
* 
*     ENTRY:  
*       NONE. 
* 
*     EXIT: 
*       ERRCODE.
* 
*     METHOD: 
*       CLEAR ERRCODE.
*       CLEAR NPU/DT/R RETRY COUNT. 
*       IF CURRENT DIRECTIVE DONE:  
*         PROCESS NEXT XPCB DIRECTIVE.
*       ELSE
*        SEND LOAD BATCH. 
*        START RESPONSE TIMER.
* 
# 
 
      ITEM ERRCODE    U;     # ERROR CODE                              #
 
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;         # TRACE CALL                              #
        END 
      $END
 
      XREF
        BEGIN 
        PROC NS$SLB;         # SEND LOAD BATCH                         #
        PROC NS$SLT;         # START RESPONSE TIMER                    #
        PROC NS$XPD;         # PROCESS NEXT XPCB DIRECTIVE             #
        END 
 
CONTROL EJECT;
 
      $BEGIN
      NS$DBG("N08");         # TRACE PROCEDURE CALL                    #
      $END
 
      ERRCODE = 0;
      NAT$RETRYS[0] = 0;
 
      IF NAT$F$DP[0]
      THEN                             # CURRENT DIRECTIVE DONE        #
        NS$XPD(ERRCODE);               # PROCESS NEXT XPCB DIRECTIVE   #
 
      ELSE                             # MORE LOAD DATA TO SEND        #
        BEGIN 
        NS$SLB(NAT$LMNAME[0],NAT$NRRI[0],ERRCODE); # SEND LOAD BATCH   #
 
        IF ERRCODE EQ 0 
        THEN                           # LOAD BATCH SENT               #
          NS$SLT;                      # START RESPONSE TIMER          #
        END 
 
      RETURN; 
      END   # NS$N08 #
      TERM