*DECK     CSIBPT
USETEXT  TEXTSS 
USETEXT  TEXTCS 
USETEXT  TXTCTCS
PROC CSIBPT;
# TITLE CSIBPT - BUILD POINTER TABLE.   # 
  
      BEGIN  # CSIBPT # 
# 
**    CSIBPT - BUILD POINTER TABLE. 
* 
*     D. G. DEPEW.           82/01/21.
* 
*     THIS PROCEDURE BUILDS A TABLE OF POINTERS THAT HELPS HUMANS TO
*     LOCATE IMPORTANT MEMORY AREAS DURING DEBUGGING.  THE TABLE NAME 
*     NAME IS *TPA* IN COMMON BLOCK *TPOINT* DEFINED IN *TEXTSS*. 
* 
*     PROC CSIBPT 
* 
*     ENTRY   NONE. 
* 
*     EXIT    BEGINNING WITH THE THIRD ENTRY (THE FIRST TWO ENTRIES ARE 
*             SET BY COMPASS ROUTINE *SSSPAT*), POINTERS FOR THE
*             FOLLOWING MEMORY AREAS HAVE BEEN STORED (IN ORDER): 
*                  NSUP WORD
*                  PROC *SSACNI* (AIP INTERFACE ROUTINE)
*                  MANAGED TABLES COMMON BLOCK
*                  WORKLIST TABLES COMMON BLOCK 
*                  NETWORK MESSAGE AND INTERNAL QUEUE BUFFERS COM BLOCK 
*                  DATE AND TIME COMMON BLOCK 
*                  CS CONTROL BLOCK 
*                  NETWORK CONFIGURATION FILE FET.
* 
*     NOTE    A LABELLED COMMON BLOCK POINTER IS CREATED BY POINTING TO 
*             THE FIRST ARRAY OR ITEM DEFINED FOR THE BLOCK.  THUS, 
*             MODIFYING OR REORGANIZING ONE OF THE COMMON BLOCKS
*             POINTED TO IN TABLE *TPA* UPON EXIT MIGHT NECESSITATE 
*             CORRESPONDING CODE CHANGES IN THIS ROUTINE. 
# 
  
  
# 
****  PROC CSIBPT - XREF LIST.
# 
  
      XREF
        PROC SSACNI;         # CONTROL NETWORK INTERFACE               #
  
# 
****
# 
  
  
      DEF POINTER$ (TPORD, DESCRIPTION, NAME) 
                    #TPA$NAME[TPORD] = DESCRIPTION; 
                     TPA$ADDR[TPORD] = LOC (NAME)#; 
  
  
  
  
  
      POINTER$ (02, "NSUP WD", NSUP);      # NSUP WORD                 #
      POINTER$ (03, "SSACNI ", SSACNI);    # AIP INTERFACE ROUTINE     #
      POINTER$ (04, "MTABLES", MEMLOC);    # MANAGED TABLES            #
      POINTER$ (05, "WTABLES", WRQ);       # WORKLIST TABLES           #
      POINTER$ (06, "BUFFERS", WCBUF);     # MESSAGE AND QUEUE BUFFERS #
      POINTER$ (07, "CLOCKS ", CTM);       # DATE/TIME AREA            #
      POINTER$ (08, "CS CTRL", CSACNOP);   # CS CONTROL BLOCK          #
      POINTER$ (09, "NCF FET", NCFFET);    # NETWORK CONFIG FILE FET   #
  
  
      END  # CSIBPT # 
  
      TERM