*COMDECK QTRMCOM
  COMMON QTRMCOM; 
    BEGIN 
    ARRAY HEADER [0:0]; 
  
      BEGIN 
*CALL HEADER
      END 
  
    ARRAY ICT [0:0] S(1);              # ARRAY FOR SAVING GLOBAL INPUT #
                                       #   CHARACTER TYPE              #
      BEGIN 
      ITEM# ICTX,U,0,42,3   #ICTX  B(0,42,3);  # ACCEPT TRANS INPUT    #
      ITEM# ICTD,U,0,45,3   #ICTD  U(0,45,3);  # INPUT CHARACTER TYPE  #
      END 
  
    ARRAY CONVAD [0:12] S(1);          # ARRAY FOR CONVERTING ASCII    #
                                       # DATA TO DISPLAY CODE.  EVERY  #
                                       # 6 BITS CONTAIN THE DISPLAY    #
                                       # CODE EQUIVALENT OF AN ASCII   #
                                       # CHARACTER WHOSE VALUE IS USED #
                                       # AS A WORD AND CHAR INDEX      #
                                       # WITHIN THE ARRAY.  ARRAY IS   #
                                       # INITIALIZED BY QTOPEN         #
      BEGIN 
      ITEM# CONVW,U,0,0,60   #CONVW   U(0,0,60);    # WORD IN TABLE    #
      END 
  
    ARRAY PRUDT [0:0] S(1);            # ARRAY FOR SAVING DEVICE TYPES #
                                       # FOR WHICH QTRM WILL PROCESS   #
                                       # PRU/ON SUPERVISORY MESSAGE    #
      BEGIN 
      ITEM# PRUUDT,U,0,47,1  #PRUUDT  B(0,47,1);    # USER DEVICE TYPE #
      ITEM# PRUCLP,U,0,52,1  #PRUCLP  B(0,52,1);    # CDCNET LINE PTR  #
      ITEM# PRUTRAA,U,0,53,1 #PRUTRAA B(0,53,1);    # INTRAHOST A-A CN #
      ITEM# PRUTERA,U,0,54,1 #PRUTERA B(0,54,1);    # INTERHOST A-A CN #
      ITEM# PRUPLOT,U,0,55,1 #PRUPLOT B(0,55,1);    # PLOTTER          #
      ITEM# PRUCP,U,0,56,1   #PRUCP   B(0,56,1);    # CARD PUNCH       #
      ITEM# PRULP,U,0,57,1   #PRULP   B(0,57,1);    # LINE PRINTER     #
      ITEM# PRUCR,U,0,58,1   #PRUCR   B(0,58,1);    # CARD READER      #
      ITEM# PRUCON,U,0,59,1  #PRUCON  B(0,59,1);    # CONSOLE          #
      ITEM# PRUDTW,U,0,0,60  #PRUDTW  U(0,0,60);    # SUPPORT DT WORD  #
      END 
  
    ARRAY SUPDT [0:0] S(1);            # ARRAY FOR SAVING DEVICE TYPES #
                                       # SUPPORTED BY THIS APPLICATION #
      BEGIN 
      ITEM# SUPUDT,U,0,47,1  #SUPUDT  B(0,47,1);    # USER DEVICE TYPE #
      ITEM# SUPCLP,U,0,52,1  #SUPCLP  B(0,52,1);    # CDCNET LINE PTR  #
      ITEM# SUPTRAA,U,0,53,1 #SUPTRAA B(0,53,1);    # INTRAHOST A-A CN #
      ITEM# SUPTERA,U,0,54,1 #SUPTERA B(0,54,1);    # INTERHOST A-A CN #
      ITEM# SUPPLOT,U,0,55,1 #SUPPLOT B(0,55,1);    # PLOTTER          #
      ITEM# SUPCP,U,0,56,1   #SUPCP   B(0,56,1);    # CARD PUNCH       #
      ITEM# SUPLP,U,0,57,1   #SUPLP   B(0,57,1);    # LINE PRINTER     #
      ITEM# SUPCR,U,0,58,1   #SUPCR   B(0,58,1);    # CARD READER      #
      ITEM# SUPCON,U,0,59,1  #SUPCON  B(0,59,1);    # CONSOLE          #
      ITEM# SUPDTW,U,0,0,60  #SUPDTW  U(0,0,60);    # SUPPORT DT WORD  #
      END 
  
  
    ITEM AUTOBREAK     B = FALSE;      # AUTOMATIC PROCESS OF USER/BRK #
    ITEM BREAKMARK     B = FALSE;      # INFORM APP ABOUT BI/MARK      #
    ITEM CONINIT       B = FALSE;      # INFORM APP ABOUT CON/REQ/R    #
    ITEM CONPOLL       B = FALSE;      # CONNECTION POLLING FLAG       #
    ITEM IGNORE        B = FALSE;      # NAM IGNORING HOP/ALTS         #
    ITEM INACTIVE      B = FALSE;      # INFORM APP ABOUT FC/INACT     #
    ITEM KDISAS        B = FALSE;      # K-DISPLAY ASSIGNED TO APP     #
    ITEM KDISPLAY      B = FALSE;      # SUPPORT NAM K-DISPLAY         #
    ITEM NETON$STATUS  B = FALSE;      # NETON STATUS FLAG             #
    ITEM NIT$ADDR      U;              # ADDRESS OF NIT AREA           #
    ITEM NOABTERRLGL   B = FALSE;      # DO NOT ABT IF ERR/LGL RECEIVED#
    ITEM NOABTNETONA   B = FALSE;      # DO NOT ABT IF NETON REJECTED  #
    ITEM PMCONV        I;              # CONVERT PM MSGS FLAG          #
                                       # = 0  NO CONVERSION            #
                                       # = 1  CONVERT TO 6 BIT DISPLAY #
                                       # = 2  CONVERT TO CONSOLE DISPLY#
    ITEM REQAA         B=FALSE;        # CON/ACRQ OUTSTANDING FLAG     #
    ITEM USERINTR      B = FALSE;      # INFORM APP ABOUT USER/INTR    #
  
    END 
  
