Table of Contents

LOCNCNT

Table Of Contents

  • [00005] PROC LOCNCNT((LLCBAD),(CN),NCNTEAD)
  • [00047] PROC XTRACE

Source Code

LOCNCNT.txt 
  1. *DECK LOCNCNT 
  2. USETEXT NIPDEF
  3. USETEXT LLCB
  4. USETEXT NCNT
  5. PROC LOCNCNT((LLCBAD),(CN),NCNTEAD);  # LOCATE NCNT ENTRY              #
  6.  STARTIMS;
  7.  #
  8. *1DC  LOCNCNT 
  9. * 
  10. *     1. PROC NAME           AUTHOR              DATE 
  11. *        LOCNCNT             C. BITTNER          81/04/10 
  12. * 
  13. *     2. FUNCTIONAL DESCRIPTION 
  14. *        LOCATE NCNT ENTRY
  15. * 
  16. *     3. METHOD USED
  17. *        BASE NCNT USING THE NCNT ADDRESS FROM THE LLCB.
  18. *        USE THE CONNECTION NUMBER TO INDEX INTO THE LLCB 
  19. *        AND NCNT.
  20. * 
  21. *     4. ENTRY PARAMETERS 
  22. *        LLCBAD - LLCB ADDRESS
  23. *        CN - NETWORK CONNECTION NUMBER 
  24. * 
  25. *     5. EXIT PARAMETERS
  26. *        NCNTEAD - NCNT ENTRY ADDRESS 
  27. * 
  28. *     6. SYMPL TEXTS USED 
  29. *        NIPDEF              NCNT 
  30. *        LLCB 
  31. * 
  32. *     7. ROUTINES CALLED
  33. *        XTRACE - RECORD PROCEDURE CALL 
  34. * 
  35. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  36. *        THIS PROCEDURE IS CALLED BY HPRUON,NCSTTP, 
  37. *        NEIB1,NPPCT,NPPWL. 
  38. * 
  39.  #
  40.  STOPIMS; 
  41.  
  42. # 
  43.    EXTERNAL VARIABLES 
  44. # 
  45.  XREF 
  46.    BEGIN
  47.    PROC XTRACE;              # RECORD PROCEDURE CALLS                  #
  48.    END
  49.  
  50.  
  51. # INPUT PARAMETERS #
  52.       ITEM LLCBAD;           # LLCB ADDRESS                            #
  53.       ITEM CN;               # NETWORK CONNECTION NUMBER               #
  54.  
  55. # OUTPUT PARAMETERS # 
  56.       ITEM NCNTEAD;          # NCNT ENTRY ADDRESS                      #
  57.  
  58. # 
  59.    INTERNAL VARIABLES 
  60. # 
  61.       ITEM LLCBINDX;         # INDEX INTO LLCB                         #
  62.       ITEM NCNTINDX;         # INDEX INTO NCNT                         #
  63.  
  64.       ARRAY CNX;
  65.         BEGIN 
  66.         ITEM CNE        U(00,00,60);  # CONNECTION NUMBER              #
  67.         ITEM CN1        U(00,52,04);  # CONNECTION INDEX               #
  68.         ITEM CN2        U(00,56,04);  # INDEX INTO NCNT                #
  69.         END 
  70.  
  71.  
  72. #**********************************************************************#
  73.  
  74.  
  75.  
  76.  
  77.  
  78.       BEGIN 
  79.  
  80.       CONTROL IFEQ DEBUG,1; 
  81.          XTRACE("LOCNC") ;
  82.       CONTROL FI; 
  83.  
  84.  
  85.  
  86.  
  87.       P<LLCB> = LLCBAD;      # BASE LLCB                               #
  88.       CNE = CN;              # CONNECTION NUMBER                       #
  89.       LLCBINDX = CN1 + LLCBHSIZE;  # LLCB INDEX                        #
  90.       P<NCNT> = LLCBNCNT[LLCBINDX];  # BASE NCNT                       #
  91.       IF P<NCNT> NQ 0 
  92.       THEN
  93.         BEGIN                # NCNT EXISTS                             #
  94.         NCNTINDX = CN2 + NCNTHSIZE;  # INDEX INTO NCNT                 #
  95.         NCNTEAD = P<NCNT> + NCNTINDX;  # EXIT PARAM - NCNT ENTRY ADDR  #
  96.         END 
  97.       ELSE                   # NCNT DOES NOT EXIST                     #
  98.         NCNTEAD = 0;  # SET EXIT PARAMETER-NCNT ENTRY ADDRESS          #
  99.       RETURN; 
  100.       END 
  101.       TERM