*DECK FFSIIPT 
USETEXT TEXTFFS 
      PROC FFSIIPT; 
*CALL COPYRITE
# TITLE FFSIIPT - INITIALIZE POINTER TABLE.                            #
  
      BEGIN                            # FFSIIPT                       #
# 
**    FFSIIPT  INITIALIZE POINTER TABLE.
* 
*     A. LIM                           88/01/15 
* 
*     THIS PROCEDURE INITIALIZES THE POINTER TABLE WHICH ALLOWS ONE TO
*     LOCATE IMPORTANT DATA STRUCTURES WITHOUT THE AID OF A LOAD MAP. 
* 
*     PROC FFSITBL
* 
*     ENTRY    PTRTBL = POINTER TABLE.
*              THE FIRST ENTRY IS SET UP BY *FFSISRP*. (REPRIEVE BLOCK) 
*              THE SECOND ENTRY IS SET UP BY *FFSINET*. (ZZZZZDN FET) 
* 
*     EXIT     REMAINING ENTRIES IN POINTER TABLE SET UP AS FOLLOWS:  
*              BASED ARRAY POINTERS.
*              NAM *NSUP* WORD. 
*              INCOMING DATA OR SM BUFFER.
*              OUTGOING DATA OR SM BUFFER.
*              CURRENT TIME AND NEXT TIMER DUE TABLE. 
*              FILE SERVER CURRENT VARIABLES. 
*              TABLE MANAGER INFORMATION. 
*              MANAGED TABLE AREA.
* 
# 
  
  
      DEF SETUP (ORD, NAME, FWA)
          #PTR$NAME[ORD] = NAME;
           PTR$ADDR[ORD] = LOC(FWA)#; 
      CONTROL EJECT;
  
#     START MAIN PROCEDURE                                             #
  
      SETUP(PBAP,  "BASEDPT", ABH);    # BASED ARRAY POINTERS          #
      SETUP(PNSUP, "NSUPWRD", NSUP);   # NAM *NSUP* WORD               #
      SETUP(PINPB, "INPBUF ", INPBUF); # INPUT BUFFER                  #
      SETUP(POUTB, "OUTBUF ", OUTBUF); # OUTPUT BUFFER                 #
      SETUP(PTMR,  "TIMERS ", CTM);    # CURRENT TIME AND NEXT TIMER   #
      SETUP(PCUR,  "CURRENT", FSDEBUG);# FILE SERVER CURRENT VARIABLES #
      SETUP(PMAN,  "MANAGER",LOADBASE);# TABLE MANAGER VARIABLES       #
      SETUP(PTBL,  "TABLES ", TSTART); # MANAGED TABLES AREA           #
      SETUP(PACN,  "ACN    ", ACN);    # ACN TABLE                     #
      SETUP(PMBT,  "MBT    ", MBT);    # MBT TABLE                     #
      SETUP(PPARMS,"PARMS  ", PARMS);  # PARAMETER LIST                #
      SETUP(PIND,  "INDICAT", INDICATION);  # INDICATIONS BLOCK        #
      SETUP(PREQ,  "REQUEST", REQUESTS);    # REQUEST BLOCK            #
      SETUP(PCTB,  "CTBCOM ", CTBID);  # CTB TABLE                     #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSIIPT                       #
  
      TERM
