Table of Contents

NVFIBPT

Table Of Contents

  • [00006] PROC NVFIBPT
  • [00007] NVFIBPT - BUILD POINTER TABLE.
  • [00011] BUILD POINTER TABLE.
  • [00049] PROC SSACNI

Source Code

NVFIBPT.txt 
  1. *DECK     NVFIBPT 
  2. USETEXT  TEXTSS 
  3. USETEXT  TEXTNVF
  4. USETEXT  TXVCBNV
  5. USETEXT  TXTANVF
  6. PROC NVFIBPT; 
  7. # TITLE NVFIBPT - BUILD POINTER TABLE.   #
  8.  
  9.       BEGIN  # NVFIBPT #
  10. # 
  11. **    NVFIBPT - BUILD POINTER TABLE.
  12. * 
  13. *     D. G. DEPEW.           82/01/21.
  14. * 
  15. *     THIS PROCEDURE BUILDS A TABLE OF POINTERS THAT HELPS HUMANS TO
  16. *     LOCATE IMPORTANT MEMORY AREAS DURING DEBUGGING.  THE TABLE NAME 
  17. *     NAME IS *TPA* IN COMMON BLOCK *TPOINT* DEFINED IN *TEXTSS*. 
  18. * 
  19. *     PROC NVFIBPT
  20. * 
  21. *     ENTRY   NONE. 
  22. * 
  23. *     EXIT    BEGINNING WITH THE THIRD ENTRY (THE FIRST TWO ENTRIES ARE 
  24. *             SET BY COMPASS ROUTINE *SSSPAT*), POINTERS FOR THE
  25. *             FOLLOWING MEMORY AREAS HAVE BEEN STORED (IN ORDER): 
  26. *                  NSUP WORD
  27. *                  PROC *SSACNI* (AIP INTERFACE ROUTINE)
  28. *                  MANAGED TABLES COMMON BLOCK
  29. *                  WORKLIST TABLES COMMON BLOCK 
  30. *                  NETWORK MESSAGE AND INTERNAL QUEUE BUFFERS COM BLOCK 
  31. *                  DATE AND TIME COMMON BLOCK 
  32. *                  NVF STATE ITEM 
  33. *                  VALIDATION CONTROL BLOCK FET 
  34. *                  CPM REQUEST BLOCK. 
  35. * 
  36. *     NOTE    A LABELLED COMMON BLOCK POINTER IS CREATED BY POINTING TO 
  37. *             THE FIRST ARRAY OR ITEM DEFINED FOR THE BLOCK.  THUS, 
  38. *             MODIFYING OR REORGANIZING ONE OF THE COMMON BLOCKS
  39. *             POINTED TO IN TABLE *TPA* UPON EXIT MIGHT NECESSITATE 
  40. *             CORRESPONDING CODE CHANGES IN THIS ROUTINE. 
  41. # 
  42.  
  43.  
  44. # 
  45. ****  PROC NVFIBPT - XREF LIST. 
  46. # 
  47.  
  48.       XREF
  49.         PROC SSACNI;         # CONTROL NETWORK INTERFACE               #
  50.  
  51. # 
  52. ****
  53. # 
  54.  
  55.  
  56.       DEF POINTER$ (TPORD, DESCRIPTION, NAME) 
  57.                     #TPA$NAME[TPORD] = DESCRIPTION; 
  58.                      TPA$ADDR[TPORD] = LOC (NAME)#; 
  59.  
  60.  
  61.  
  62.  
  63.  
  64.       POINTER$ (02, "NSUP WD", NSUP);      # NSUP WORD                 #
  65.       POINTER$ (03, "SSACNI ", SSACNI);    # AIP INTERFACE ROUTINE     #
  66.       POINTER$ (04, "MTABLES", MEMLOC);    # MANAGED TABLES            #
  67.       POINTER$ (05, "WTABLES", WRQ);       # WORKLIST TABLES           #
  68.       POINTER$ (06, "BUFFERS", WCBUF);     # MESSAGE AND QUEUE BUFFERS #
  69.       POINTER$ (07, "CLOCKS ", CTM);       # DATE/TIME AREA            #
  70.       POINTER$ (08, "NVFSTAT", NVFSTATE);  # STATE OF NVF              #
  71.       POINTER$ (09, "VCB FET", VCBFET);    # VALIDATION CTRL BLK FET   #
  72.       POINTER$ (10, "CPM REQ", CRQBUF);    # CPM REQUEST BUFFER        #
  73.  
  74.  
  75.       END  # NVFIBPT #
  76.  
  77.       TERM