Table of Contents

CSIBPT

Table Of Contents

  • [00005] PROC CSIBPT
  • [00006] CSIBPT - BUILD POINTER TABLE.
  • [00010] BUILD POINTER TABLE.
  • [00047] PROC SSACNI

Source Code

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