*COMDECK COMRLRA
#     COMRLRA - LOW RA DATA DESCRIPTIONS #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
***   COMRLRA - LOW RA DATA DESCRIPTIONS
* 
*     THE AREA FROM RA+0 THRU RA+100 CONTAINS SEVERAL MISCELLANEOUS 
*     SYSTEM INTERFACE WORDS AND SEVERAL RHF TABLE POINTERS.  THE 
*     BASED ARRAY RA$ZERO IS LOCATED BY THE ROUTINE STARTUP AND NOT 
*     MOVED.
* 
# 
  
      COMMON COMRLRA; 
      BEGIN  # COMRLRA #
  
      BASED ARRAY RA$ZERO S(110); 
        BEGIN  # LOW RA AREA #
        ITEM RA$ACK     B(00,43,01); # OPEARATOR ACK FLAG # 
        ITEM RA$IDLE    B(00,44,01); # SUBSYSTEM IDLE FLAG #
        ITEM RA$PAUSE   B(00,47,01);  # PAUSE FLAG #
        ITEM RA$ARG     I(02,00,60); # FIRST C/S ARGUMENT # 
        ITEM RA$SSID    I(40,00,60); # SUBSYSTEM ID # 
        ITEM RA$SSPN    I(40,00,42); # SUBSYSTEM PROGRAM NAME # 
        ITEM RA$SSCODE  U(40,42,18); # SUBSYSTEM IDENTIFICATION CODE #
        ITEM RA$SSC     I(41,00,60); # SBUSYSTEM COMMUNICATION WORD # 
        ITEM RA$SSC$LK  B(41,00,01); # INTERLOCK BIT #
        ITEM RA$SSC$XP  I(41,06,18); # UCP EXCHANGE PACKAGE ADDRESS # 
        ITEM RA$SSC$VF  B(41,24,01); # VARIABLE MOVE FLAG # 
        ITEM RA$SSC$LP  U(41,25,17); # LENGTH OF THE REQUEST BLOCK #
        ITEM RA$SSC$AP  I(41,42,18); # ADDRESS OF THE UCP PARAM BLOCK # 
        ITEM RA$ACT     U(52,42,18); # C/S ARGUMENT COUNT # 
        ITEM RA$JOP     U(54,24,12); # JOB ORIGIN TYPE #
        ITEM RA$CCD     I(56,00,60); # DSD L-DISPLAY COMMUNICATION #
        ITEM RA$CCDBUFF U(56,00,12); # ADDRESS OF COMMAND/DISPLAY BUFF #
        ITEM RA$CCDLDIS I(56,12,48); # LDISPLAY (IN DISPLAY CODE) # 
        ITEM RA$APLADRW U(57,00,60); # APPL ADDR WORD # 
        ITEM RA$LASTAPL I(57,18,18); # LAST APPL HEADER ADDRESS # 
        ITEM RA$FRSTAPL I(57,42,18); # FIRST APPL HEADER ADDRESS #
        ITEM RA$NDTADRW U(58,00,60); # NDT ADDR WORD #
        ITEM RA$NDT     I(58,42,18); # NETWORK DESCRIPTION TABLE ADDR # 
        ITEM RA$MINFL   I(65,42,18); # LWA + 1 OF OVERLAY # 
        ITEM RA$HHA     I(68,42,18); # HIGHEST HIGH ADDRESS # 
        END  # LOW RA AREA #
  
      END  # COMRLRA #
                                               CONTROL LIST;
