*COMDECK,ACN$COM
  
#     APPLICATION CONNECTION TABLE - ACN$TABLE                         #
  
#           USE - MAINTAINS INFORMATION ABOUT A CONNECTION             #
  
#           SIZE = (2 * STATIONS) + TOTDEV + 2                         #
  
#                  NOTE - THE LAST TWO ACN$TABLE ENTRIES ARE RESERVED  #
#                         FOR RBF"S INTERNAL USE FOR QCM AND SMP       #
#                         RESPECTIVELY                                 #
  
#                  NOTE - THIS IS ACCOMPLISHED BY DEFINING FOUR        #
#                         CONSECUTIVE ARRAYS (ACN$TABLE THROUGH        #
#                         ACN$TABLE3) TO OVERCOME THE SYMPL LIMITATION #
#                         OF NO EXPRESSIONS IN THE BOUNDS DEFINITION   #
#                         OF AN ARRAY                                  #
# 
                   NOTE - ACN$TABLE REQUIRES PREVIOUS *CALL"S FOR 
                          FOLLOWING COMDECKS - MISC$ AND IP$COM 
# 
  
# 
                   NOTE - THIS COMMON BLOCK IS USED BY REMOVE SETACN
                          ROUTINE. ANY CHANGES TO THIS BLOCK WOULD
                          AFFECT THE CODE IN THAT ROUTINE.
# 
      COMMON ACN$COM; 
      BEGIN 
      ARRAY ACN$TABLE [1:2] S(1); 
         ITEM 
            ACN$CTLR     I (0,0,12),  #ACN OF CONTROLLING CONSOLE      #
            ACN$STATE    S: CONNECTSTATE (0,12,3),
            ACN$MODE     U (0,15,6),       # DEVICE STATE   # 
                                      # STATE OF CONNECTION            #
            ACN$DEVTYPE  S:DEVICETYPE (0,21,4),  # DEVICE TYPE         #
            ACN$CHAIN    U (0,26,4),  #CHAIN WHICH THIS CONNECTION IS  #
                                      #CURRENTLY ON                    #
            ACN$NEXT     I (0,30,12), #ACN OF NEXT CONNECTION ON THIS  #
                                      #CHAIN                           #
            ACN$DEVINDEX     U (0,42,6),   #INDEX TO DEVICE IN TCB     #
            ACN$CB       U (0,48,12), #ORDINAL OF THE DEVICE CONTROL   #
                                      #BLOCK                           #
            ACN$WORD     U (0,0,60) = [0,0]; #INITIALIZE TABLE         #
      ARRAY ACN$TABLE1 [1:STATIONS] S(1); 
         ITEM 
            ACN$WORD1    I (0,0,60) = [STATIONS (0)];#INITIALISES TABLE#
      ARRAY ACN$TABLE2 [1:STATIONS] S(1); 
         ITEM 
            ACN$WORD2    I (0,0,60) = [STATIONS (0)];#INITIALISES TABLE#
      ARRAY ACN$TABLE3 [1:TOTDEV] S(1); 
         ITEM 
            ACN$WORD3    I (0,0,60) = [TOTDEV   (0)];#INITIALISES TABLE#
      END 
# 
STOP
# 
#      END OF APPLICATION CONNECTION TABLE DEFINITION                  #
