*DECK FCSIIPT 
USETEXT TEXTFCS;
      PROC FCSIIPT; 
*CALL COPYRITE
# TITLE FCSIIPT - INITIALIZE POINTER TABLE.                            #
  
      BEGIN                            # FCSIIPT                       #
  
# 
**    FCSIIPT - INITIALIZE POINTER TABLE. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE INITIALIZES THE POINTER TABLE WHICH ALLOWS ONE TO
*     LOCATE IMPORTANT DATA STRUCTURES WITHOUT THE AID OF A LOAD MAP. 
* 
*     PROC NOSIIPT
* 
*     ENTRY    PTRTBL    = POINTER TABLE. 
*              THE FIRST ENTRY IS SET UP BY *FCSISRP*. (REPRIEVE BLOCK) 
* 
*     EXIT     REMAINING ENTRIES IN POINTER TABLE SET UP AS FOLLOWS.
*              BASED ARRAY POINTERS.
*              INCOMING DATA OR SM BUFFER.
*              OUTGOING DATA OR SM BUFFER.
*              CURRENT VARIABLES. 
*              COMMAND PARAMETER BLOCKS.
*              TABLE MANAGER INFORMATION. 
*              MANAGED TABLE AREA.
* 
*     METHOD   A SYMPL DEF IS USED TO SETUP EACH POINTER TABLE ENTRY. 
*                IPT(ORD,NAME,FWA)
*                  . ORD  - TABLE ENTRY ORDINAL.
*                  . NAME - 7 CHARACTER DISPLAY CODE ENTRY NAME.
*                  . FWA  - FIRST WORD ADDRESS OF DATA STRUCTURE
*                           POINTED TO. 
* 
# 
  
# 
****  PROC FCSIIPT - XREF LIST
# 
      XREF
        BEGIN 
        END 
# 
****
# 
      DEF IPT (ORD, NAME, FWA)
          #PTR$NAME[ORD] = NAME;
           PTR$ADDR[ORD] = LOC(FWA)#; 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      IPT (PBAP,  "BASEDPT", ABH);     # BASED ARRAY POINTERS          #
      IPT (PNSUP, "NSUPWRD", NSUP);    # NAM *NSUP* WORD               #
      IPT (PINPB, "INPBUF ", INPBUF);  # INPUT BUFFER                  #
      IPT (POUTB, "OUTBUF ", OUTBUF);  # OUTPUT BUFFER                 #
      IPT (PCUR,  "CURRENT", FTPSTATE);# CURRENT COMMON VARIABLES      #
      IPT (PCMD,  "COMMAND", PARMS[1]);# COMMAND PARAMETER BLOCKS      #
      IPT (PMAN,  "MANAGER", LOADBASE);# TABLE MANAGER VARIABLES       #
      IPT (PTBL,  "TABLES ", TSTART);  # MANAGED TABLES AREA           #
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSIIPT                       #
  
      TERM
