*DECK RMDX
          IDENT     RM$X
*#
*1DC      RM$X
*X        RM$X
*0    PURPOSE 
*0        A KLUDGE TO ALLOW THE CONTINUED USE OF
*                   LDSET(SUBST=$RM.IS$-$RM.ISX$) 
*         TO INDICATE THE USE OF READ-ONLY IS IN AAM 1.5. 
*#
          ENTRY     RM$MEXB 
 RM$MEXB  BSS 
          ENTRY     RM.IS,RM.DA,RM.ISX,RM.DAX 
*                   READ-ONLY FLAG KLUDGE 
 RM.IS    BSS 
 RM.DA    CON       +0
 RM.ISX   BSS 
 RM.DAX   CON       -0
          END 
