Retro1.org codex

*DECK NP$UCV
USETEXT AIPDEF
USETEXT NP$NWL
PROC NP$UCV;
*IF DEF,IMS 
 #
*1DC  NP$UCV
* 
*     1. PROC NAME           AUTHOR              DATE 
*        NP$UCV              J.C. LEE            78/10/31 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        THIS ROUTINE UPDATES NWL ENTRY SIZE AND ITS CONTROL VARIABLES. 
* 
*     3. METHOD USED
*        UPDATE NWL ENTRY SIZE AND CONTROL VARIABLES HDR$N, HDR$W,
*        NEXT AND SPACE$LEFT. 
* 
*     4. ENTRY CONDITIONS 
*        BS - NWL ENTRY SIZE
*        HDR$N - CURRENT NUMBER OF NWL ENTRIES IN WORKLIST
*        HDR$W - CURRENT NUMBER OF WORDS IN WORKLIST
*        NEXT - CURRENT NEXT AVAILABLE SPACE POINTER IN WORKLIST
*        SPACE$LEFT - CURRENT NUMBER OF WORDS AVAILABLE IN WORKLIST 
* 
*     5. EXIT CONDITIONS
*        NWL$BS - SET TO ENTRY SIZE BS
*        HDR$N - INCREMENTED BY 1 
*        HDR$W - INCREMENTED BY CURRENT ENTRY SIZE
*        NEXT - UPDATED TO NEXT AVAILABLE SPACE POINTER IN WORKLIST,
*               REFLECTING CURRENT ENTRY SIZE 
*        SPACE$LEFT - UPDATED TO NUMBER OF WORDS STILL AVAILABLE IN 
*                     WORKLIST, REFLECTING CURRENT ENTRY"S SIZE.
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED.
*        AIPDEF    NP$CRT    NP$NWL 
* 
*     7. ROUTINES CALLED
*        NONE 
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
 #
*ENDIF
 
   BEGIN
 
*CALL NP$CRT
      CONTROL EJECT;
# 
      NP$UCV EXECUTION BEGINS HERE
# 
      NWL$BS[NEXT] = BS;                # NWL ENTRY SIZE               #
      HDR$N[NHDR] = HDR$N[NHDR] + 1;    # INCREMENT NWL ENTRY COUNT    #
      HDR$W[NHDR] = HDR$W[NHDR] + BS;   # INCREMENT WORKLIST WORD COUNT#
      NEXT = NEXT + BS;                 # UPDATE NEXT POINTER IN NWL   #
      SPACE$LEFT = SPACE$LEFT - BS;     # WORDS REMAINING IN NWL       #
      RETURN; 
   END # NP$UCV # 
TERM