*DECK CMMMEM
          IDENT  CMM.MEM
          TITLE  COMMON MEMEORY MANAGER V1.0 - MEMORY CHANGING ROUTINES 
          ENTRY  CMM.MEM
*CALL CMMCOM
  
  
**        MEM - ISSUE MEMORY REQUEST. 
* 
*         ENTRY  (X7) = MEM VALUE (BITS 59-30)
* 
*         EXIT   (X1) = RETURN VALUE (BITS 29-0)
* 
*         USES   X - 1, 2, 6. 
*                B - NONE 
*         A - 1,6.
  
  
 CMM.MEM  EQ     *+400000B   ENTRY/EXIT 
          SX2    MEMARG 
          SX6    4
          BX6    X7+X6       SET CMM REQUEST BIT
          SA6    X2          STORE REQUEST
 SCP2     IFC    EQ,/"OS.NMV"/SCOPE 2/
          MEMORY SCM,MEMARG  DO MEMORY REQUEST
 SCP2     ELSE
          MEMORY CM,MEMARG,RCL  ISSUE REQUEST 
 SCP2     ENDIF 
          SA1    X2          (X1) = RETURN
          AX1    30 
 SF1      IFNE   DEFVER,0    IF ERROR CHECKING (SAFE) VERSION 
          SX6    X1 
          SA6    =XCMS.FL    SAVE FL FOR ERROR CHECK
 SF1      ENDIF 
          EQ     CMM.MEM
  
 MEMARG   CON    0           MEM ARGUMENT WORD
          END 
