Retro1.org codex

*DECK NS$LSN
USETEXT DEF$NS
USETEXT NAT$NS
USETEXT NPT$NS
PROC NS$LSN; # ASSIGN ACTIVITY SEQUENCE NUMBER                         #
 
# TITLE NS$LSN - ASSIGN ACTIVITY SEQUENCE NUMBER.                      #
 
      BEGIN    # NS$LSN # 
# 
**    NS$LSN - ASSIGN ACTIVITY SEQUENCE NUMBER. 
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE ASSIGNS ACTIVITY SEQUENCE NUMBER.
* 
*     ENTRY:  
*       NONE. 
* 
*     EXIT: 
*       NONE. 
* 
*     METHOD: 
*       INCREMENT LSN.
*       IF LSN REACH LIMIT, RESET TO 1. 
*       SET NPT$LSN TO LSN. 
*       SET NAT$LSN TO LSN. 
* 
# 
 
      ITEM LSN        U; # LOAD SEQUENCE NUMBER FOR CURRENT ACTIVITY   #
 
      LSN = NPT$LSN[NTORD] + 1; # INCREMENT TO NEXT SEQUENCE NUMBER    #
      IF LSN GR MAX$LSN 
      THEN
        LSN = 1;
      NPT$LSN[NTORD] = LSN; 
      NAT$LSN[0] = LSN; 
 
      RETURN; 
      END # NS$LSN #
      TERM