Retro1.org codex

*DECK     NVFIBPT 
USETEXT  TEXTSS 
USETEXT  TEXTNVF
USETEXT  TXVCBNV
USETEXT  TXTANVF
PROC NVFIBPT; 
# TITLE NVFIBPT - BUILD POINTER TABLE.   #
 
      BEGIN  # NVFIBPT #
# 
**    NVFIBPT - 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 NVFIBPT
* 
*     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 
*                  NVF STATE ITEM 
*                  VALIDATION CONTROL BLOCK FET 
*                  CPM REQUEST BLOCK. 
* 
*     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 NVFIBPT - 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, "NVFSTAT", NVFSTATE);  # STATE OF NVF              #
      POINTER$ (09, "VCB FET", VCBFET);    # VALIDATION CTRL BLK FET   #
      POINTER$ (10, "CPM REQ", CRQBUF);    # CPM REQUEST BUFFER        #
 
 
      END  # NVFIBPT #
 
      TERM