Table of Contents

NP$UCV

Table Of Contents

  • [00004] PROC NP$UCV

Source Code

NP$UCV.txt 
  1. *DECK NP$UCV
  2. USETEXT AIPDEF
  3. USETEXT NP$NWL
  4. PROC NP$UCV;
  5. *IF DEF,IMS 
  6.  #
  7. *1DC  NP$UCV
  8. * 
  9. *     1. PROC NAME           AUTHOR              DATE 
  10. *        NP$UCV              J.C. LEE            78/10/31 
  11. * 
  12. *     2. FUNCTIONAL DESCRIPTION 
  13. *        THIS ROUTINE UPDATES NWL ENTRY SIZE AND ITS CONTROL VARIABLES. 
  14. * 
  15. *     3. METHOD USED
  16. *        UPDATE NWL ENTRY SIZE AND CONTROL VARIABLES HDR$N, HDR$W,
  17. *        NEXT AND SPACE$LEFT. 
  18. * 
  19. *     4. ENTRY CONDITIONS 
  20. *        BS - NWL ENTRY SIZE
  21. *        HDR$N - CURRENT NUMBER OF NWL ENTRIES IN WORKLIST
  22. *        HDR$W - CURRENT NUMBER OF WORDS IN WORKLIST
  23. *        NEXT - CURRENT NEXT AVAILABLE SPACE POINTER IN WORKLIST
  24. *        SPACE$LEFT - CURRENT NUMBER OF WORDS AVAILABLE IN WORKLIST 
  25. * 
  26. *     5. EXIT CONDITIONS
  27. *        NWL$BS - SET TO ENTRY SIZE BS
  28. *        HDR$N - INCREMENTED BY 1 
  29. *        HDR$W - INCREMENTED BY CURRENT ENTRY SIZE
  30. *        NEXT - UPDATED TO NEXT AVAILABLE SPACE POINTER IN WORKLIST,
  31. *               REFLECTING CURRENT ENTRY SIZE 
  32. *        SPACE$LEFT - UPDATED TO NUMBER OF WORDS STILL AVAILABLE IN 
  33. *                     WORKLIST, REFLECTING CURRENT ENTRY"S SIZE.
  34. * 
  35. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  36. *        AIPDEF    NP$CRT    NP$NWL 
  37. * 
  38. *     7. ROUTINES CALLED
  39. *        NONE 
  40. * 
  41. *     8. DAYFILE MESSAGES 
  42. *        NONE 
  43. * 
  44.  #
  45. *ENDIF
  46.  
  47.    BEGIN
  48.  
  49. *CALL NP$CRT
  50.       CONTROL EJECT;
  51. # 
  52.       NP$UCV EXECUTION BEGINS HERE
  53. # 
  54.       NWL$BS[NEXT] = BS;                # NWL ENTRY SIZE               #
  55.       HDR$N[NHDR] = HDR$N[NHDR] + 1;    # INCREMENT NWL ENTRY COUNT    #
  56.       HDR$W[NHDR] = HDR$W[NHDR] + BS;   # INCREMENT WORKLIST WORD COUNT#
  57.       NEXT = NEXT + BS;                 # UPDATE NEXT POINTER IN NWL   #
  58.       SPACE$LEFT = SPACE$LEFT - BS;     # WORDS REMAINING IN NWL       #
  59.       RETURN; 
  60.    END # NP$UCV # 
  61. TERM