*COMDECK PT 
      COMMON PT;
        BEGIN                # TABLE FOR ADDRESS OF DYNAM ALLOCAT TAB  #
        ARRAY PT0 S(6); 
          BEGIN 
          ITEM PTNAM    C(0,0,2)=["PT"];# TABLE OF DYNAM ALLOCAT TABLE #
          ITEM PT1WD0   U(0,12,30)=[0]; # DUMMY PART 1                 #
          ITEM PT2WD0   U(0,42,AL)=[O"7777777"];# TERMINATOR           #
          ITEM PTNBT    I(1);          # NBT ADDRESS                   #
          ITEM PTCET    I(2);          # ADDR OF CET TABLE             #
          ITEM PTTNT    I(3);          # ADDR OF TNT TABLE             #
          ITEM FLGBGCLT B(4,0,60);     # GARBAGE COLLECTION FLAG       #
          ITEM FWAMEM   U(4,42,18);    # FWA OF DYNAMIC MEMORY         #
          ITEM PTAT     I(5);          # ADDR OF AT TABLE              #
          END 
        ITEM NVFAN  U = 1;             # NVF APPLICATION NUMBER        #
 ITEM OUTREL  B ;           # WE HAVE OUTBOUND BUFFERS TO EMPTY # 
        ITEM NIPINIT   B = FALSE;       # NIP INITIALIZED FLAG         #
        ITEM NBTIDX;                   # NBT INDEX ASSOCIATED WITH NBT #
                                       # ENTRY THAT NIP IS CURRENTLY   #
                                       # PROCESSING                    #
      ARRAY PT11  S(1) ;
        BEGIN 
        ITEM ACNBADD     U(00,24,AL) ;  # ADDRESS OF OF ACNB           #
        ITEM NCNBADD     U(00,42,AL) ;  # ADDRESS OF OF NCNB           #
        END 
  
        ITEM NAMFAIL B = FALSE;        # NAM FAILED FLAG               #
        ITEM PRUMOVE B;                # TRUE = OK TO MOVE FREE PRU BUF#
        ITEM TEMPBSN I ;
        ITEM LASTABN ;       # LAST ABN ACKNOWLEDGED, THIS IS          #
                             # USED BY FC-RST                          #
        ITEM RCBRK;          # REASON CODE FOR BRK                     #
        ITEM SETTIMER B = FALSE;  # APP SPECIFIED TIMEOUT IN EFFECT FLG#
        ITEM TBUF U = 10000;  # TIMER FOR CALLING GARBAGE COLLECTOR    #
        ITEM NFSIZE U = 1536; # NUMBER OF FREE BUFFER WORDS            #
        ITEM CRBYTE;          # OCTET COUNT IN CRIAPN                  #
        ITEM CONCOUNT = 0;
      ARRAY PT10 [1:4] P(1);
        BEGIN 
        ITEM MINPFC  U(00,00,08) = [MNNIP,MNCS,MNNS,0]; 
        ITEM MAXPFC  U(00,08,08) = [MXNIP,MXCS,MXNS,X"FF"]; 
        ITEM CASEORD U(00,16,03) = [0,1,1,2]; 
        ITEM PROCAN  U(00,42,09) = [1,0,0,1]; 
        END 
        END 
