*DECK FFSMRCM 
          IDENT  FFSMRCM
*CALL COPYRITE
          ENTRY  FFSMRCM
          TITLE  FFSMRCM - REQUEST CENTRAL MEMORY.
          COMMENT  FFSMRCM - REQUEST CENTRAL MEMORY.
          SPACE  4,10 
***       FFSMRCM - REQUEST CENTRAL MEMORY. 
* 
*         CALL FFSMRCM (NFL, ADDR)
* 
*         ENTRY  NFL = NEW FIELD LENGTH 
*                NFL = 0  MEANS REQUEST CURRENT FIELD LENGTH
*                NFL = -1 MEANS REQUEST MAXIMUM FIELD LENGTH
* 
*         EXIT   ((ADDR)) = RETURNED STATUS WITH FIELD LENGTH 
*                           IN BITS 59 - 30.
* 
*         FFSMRCM (NFL, ADDR); ( SYMPL CALL ) 
* 
          SPACE  4,10 
 FFSMRCM  EQ     *+1S17D
 FFSMRCMX EQU    *
          SA2    A1+1        X2 = ADDRESS OF STAT WORD
          SA1    X1          X1 = VALUE OF NFL
          MX3    30          SET UP STAT WORD 
          SX6    X1 
          LX6    30 
          BX6    X3*X6
          SA6    X2 
          MEMORY CM,A6,R     REQUEST MEMORY WITH RECALL 
          JP     FFSMRCMX 
  
          END 
