*COMDECK PCNB 
      BASED ARRAY PCNB [0:0] P(PCNBSIZE); 
# 
         PRU CONNECTION BLOCK 
# 
        BEGIN 
        ITEM PCNBID   U(0,0,6);   # PRU CONNECTION BLOCK ID            #
        ITEM PCNBBS   I(0,6,18);  # PRU CONNECTION BLOCK SIZE          #
        ITEM PCNBR0   U(0,24,36); # REST OF WORD ZERO                  #
        ITEM PCNBNBL  U(0,24,3);  # NETWORK BLOCK LIMIT                #
        ITEM PCNBPRI  U(0,27,3);  # CONNECTION PRIORITY                #
        ITEM PCNBHR   B(0,31,1);  # HOST REGULATION FLAG               #
        ITEM PCNBNR   B(0,32,1);  # NPU REGULATION FLAG                #
        ITEM PCNBAA   B(0,33,1);  # APP APP CONNECTION FLAG            #
        ITEM PCNBPBS  U(0,34,2);  # PRU BUFFER SIZE                    #
        ITEM PCNBDT   U(0,36,3);  # DEVICE TYPE                        #
        ITEM PCNBTC   U(0,39,5);  # TERMINAL CLASS                     #
        ITEM PCNBPW   U(0,44,8);  # PAGE WIDTH                         #
        ITEM PCNBPL U(0,52,8)  ;  # PAGE LENGTH                        #
        ITEM PCNBR1   U(1,0,24);  # BEGINING OF WORD ONE               #
        ITEM PCNBNADR U(1,0,24);  # NETWORK NADRESS                    #
        ITEM PCNBTN   U(1,0,8);   # TERMINAL NODE NUMBER               #
        ITEM PCNBHN   U(1,8,8);   # COUPLER NODE NUMBER                #
        ITEM PCNBCN   U(1,16,8);  # CONNECTION NUMBER                  #
        ITEM PCNBPCBP I(1,24,AL); # PRU RING BACK POINTER              #
        ITEM PCNBPCFP I(1,42,AL); # PRU RING FORWARD PT                #
        ITEM PCNBWL1  B(2,0,1);   # WORKLIST PROCESSED FLAG ONE        #
        ITEM PCNBOFF  B(2,1,1);   # TRUE = DOWNLINE DATA NOT ALLOWED   #
        ITEM PCNBINAC B(2,2,1);   # TRUE = INACTIVE PRU CONNECTION     #
        ITEM PCNBREC       B(2,3,1) ;    # RECEIVING MODE              #
  
        ITEM PCNBXFR  B(2,11,1);  # FILE TRANSFER MODE                 #
        ITEM PCNBCWS  U(2,12,8);  # CHECK MARK WINDOW SIZE             #
        ITEM PCNBKVL  U(2,20,14); # INITIAL CHECK MARK VALUE           #
        ITEM PCNBXDD  U(2,34,2);  # FILE TRANSFER DATA DECLARATION     #
        ITEM PCNBIMMO I(2,42,AL); # IMMEDIATE WORKLIST CHAIN           #
        ITEM PCNBWL2  B(3,0,1);   # WORKLIST PROCESSED FLAG TWO        #
        ITEM PCNBNBTE U(3,2,4);   # NBTE INDEX                         #
        ITEM PCNBACNB I(3,6,AL);  # CORR ACNB ADDRESS                  #
        ITEM PCNBLCMD I(3,42,AL); # LCMD WORKLIST CHAIN                #
        ITEM PCNBWL3  B(4,0,1);   # WORKLIST PROCESSDED FLAG THREE     #
        ITEM PCNBCMD  I(4,42,AL); # CMD WORKLIST CHAIN                 #
        ITEM PCNBSTS  U(5,00,60); # STATES WORD                        #
        ITEM PCNBCST  U(5,00,06); # CURRENT STATE - CONNECTION         #
        ITEM PCNBBST  U(5,06,06); # CURRENT STATE - BLOCK              #
        ITEM PCNBLCS  U(5,12,06); # LAST CONNECTION STATE              #
        ITEM PCNBLBS  U(5,18,06); # LAST BLOCK STATE                   #
        ITEM PCNBLCT  U(5,24,06); # LAST TRIGGER TO CONNECTION STATE   #
        ITEM PCNBLBT  U(5,30,06); # LAST TRIGGER TO BLOCK STATE        #
        ITEM PCNBCTAD U(05,42,AL);# NCNT ADDRESS                       #
        ITEM PCNBTNAM C(6,0,NC);  # TERMINAL NAME                      #
        ITEM PCNBRC   U(6,52,8);  # REASON CODE FROM TCN/TA/R          #
        ITEM PCNBLFN  C(7,0,NC);  # CURRENT QUEUE FILE LFN             #
        ITEM PCNBFNTO U(7,48,12); # CURRENT QUEUE FILE FNTO            #
        ITEM PCNBFILE U(7,0,WL);  # CURRENT QUEUE FILE WORD            #
        ITEM PCNBFNT  U(8,0,12);  # CURRENT FILE FNT ORDINAL           #
        ITEM PCNBPRU  U(8,12,24); # CURRENT PRU POSITION               #
        ITEM PCNBDR1  U(9,0,WL);  # DRIVER WOED 1                      #
        ITEM PCNBDR2  U(10,0,WL); # DRIVER WORD 2                      #
        ITEM PCNBDR3  U(11,0,WL); # DRIVER WORD 3                      #
        ITEM PCNBDR4  U(12,0,WL); # DRIVER WORD 4                      #
        ITEM PCNBDR5  U(13,0,WL); # DRIVER WORD 5                      #
        ITEM PCNBDR6  U(14,0,WL); # DRIVER WORD 6                      #
       ITEM PCNBDR7  U(15,0,WL); # DRIVER WORD 7                      # 
        END 
