*COMDECK COMRNAM
#     COMRNAM - DEFINES CERTAIN NAM SYMBOL VALUES. #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMRNAM - DEFINES CERTAIN NAM SYMBOL VALUES.
* 
*     DEFINES NAM VALUES FOR PFC/SFC FOR ASYNCHRONOUS MESSAGES. 
*     INCLUDES AN ARRAY PRESET FOR A SUPERVISORY MESSAGE HEADER.
* 
* 
# 
  
      BEGIN  # COMRNAM COMMON DECK #
  
      DEF $CONACR   #X"6302"#;       # CODE FOR CON/ACRQ/R #
      DEF $CONACRA  #X"6382"#;       # CODE FOR CON/ACRQ/A #
      DEF $CONCB    #X"6305"#;       # CODE FOR CON/CB/R #
      DEF $CONEND   #X"6306"#;       # CODE FOR CON/END/R # 
      DEF $CONENDN  #X"6346"#;       # CODE FOR CON/END/N # 
      DEF $CONREQ   #X"6300"#;       # CODE FOR CON/REQ/R # 
      DEF $CONREQA  #X"6380"#;       # CODE FOR CON/REQ/A # 
      DEF $CONREQN  #X"6340"#;       # CODE FOR CON/REQ/N # 
      DEF $CTRINF   #X"C10A"#;       # CODE FOR CTRL/INFO/R # 
      DEF $CTRINFA  #X"C18A"#;       # CODE FOR CODE FOR CTRL/INFO/A #
      DEF $CTRINFN  #X"C14A"#;       # CODE FOR CTRL/INFO/N # 
      DEF $DCCICT   #X"C200"#;       # CODE FOR DC/CICT/R # 
      DEF $ERRLGL   #X"8401"#;       # CODE FOR ERR/LGL/R # 
      DEF $FCACK    #X"8302"#;       # CODE FOR FC/ACK/R #
      DEF $FCBRK    #X"8300"#;       # CODE FOR FC/BRK/R #
      DEF $FCINIT   #X"8307"#;       # CODE FOR FC/INIT/R # 
      DEF $FCINITN  #X"8347"#;       # CODE FOR FC/INIT/N # 
      DEF $FCNAK    #X"8303"#;       # CODE FOR FC/NAK/R #
      DEF $FCRST    #X"8301"#;       # CODE FOR FC/RST/R #
      DEF $LSTOFF   #X"C000"#;       # CODE FOR LST/OFF/R # 
      DEF $LSTON    #X"C001"#;       # CODE FOR LST/ON/R #
      DEF $LSTSWH   #X"C002"#;       # CODE FOR LST/SWH/R # 
      DEF $SHUINS   #X"4206"#;       # CODE FOR SHUT/INSD/R # 
      DEF $STATNDTR #X"C400"#;       # CODE FOR STAT/NDT/R #
      DEF $STATNDTN #X"C440"#;       # CODE FOR STAT/NDT/N #
      DEF $STATNDTA #X"C480"#;       # CODE FOR STAT/NDT/A #
      DEF $CMSELN    #X"C340"#;      # CODE FOR CM/SEL/N #
      DEF $CMSELA    #X"C380"#;      # CODE FOR CM/SEL/A #
      DEF $CMSELR    #X"C300"#;      # CODE FOR CM/SEL/R #
      DEF $CMEXITN   #X"C341"#;      # CODE FOR CM/EXIT/N # 
      DEF $CMEXITR   #X"C301"#;      # CODE FOR CM/EXIT/R # 
  
      DEF $SUPERABT #3#;             # ABT FOR SUP. MSG # 
  
      COMMON COMRNAM; 
      BEGIN  # COMRNAM COMMON AREA #
  
      ARRAY [0:0] S(1); 
        BEGIN  # SUPERVISORY MESSAGE HEADER AREA PRESET # 
        ITEM $SUPHDR  I(00,00,60) = [0];
        ITEM $SUPABT  U(00,00,06) = [$SUPERABT];
        ITEM $SUPACT  U(00,36,04) = [1];
        ITEM $SUPTLC  U(00,48,12);
        END 
  
      END  # COMRNAM COMMON AREA #
  
      END  # COMRNAM COMMON DECK #
  
                                               CONTROL LIST;
