*DECK FCMMFAF 
          IDENT  CMMFAF 
 CMMFAF   TITLE  CMMFAF - ALLOCATE (FLEXIBLE) BLOCK 
          COMMENT  ALLOCATE (FLEXIBLE) BLOCK
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMFAF - ALLOCATE(FLEXIBLE) BLOCK 
* 
*         CALL CMMFAF(MINBLK,MAXBLK,SIZCDE,GRPID,BLKFWA,BLKSIZ) 
* 
*                MINBLK - MINIMUM NUMBER OF WORDS REQUIRED FOR BLOCK
*                MAXBLK - MAXIMUM NUMBER OF WORDS REQUIRED FOR BLOCK
*                SIZCDE - 3 BIT SIZE CODE AS FOLLOWS
*                        0 - FIXED
*                        1XX - FWA END CAN SHIRK
*                        X1X - LWA END CAN SHIRK
*                        XX1 - LWA END CAN GROW 
*                GRPID - GROUP IDENTIFIER 
*                         =0 - BLOCK NOT IN GROUP 
*                         <>0 - GROUP ID THAT WAS PREVIOUSLY RETURNED 
*                         BY CMMARG.
*                BLKFWA - FIRST WORD ADDRESS OF BLOCK 
*                BLKSIZ - NUMBER OF WORDS ACTUALLY ALLOCATED
* 
* 
          SUBRTN CMMFAF 
          SA2    X1 
          SA1    A1+B1
          SA3    X1          MAXSIZ 
          LX3    30 
          BX2    X2+X3
          SA1    A1+B1
          SA3    X1          SIZCDE 
          LX3    6
          SA1    A1+B1
          SA4    X1          GRPID
          LX4    12 
          BX3    X4+X3
          SA0    A1+B1       SAVE PLACE IN PARAMETER LIST 
+         RJ     =XCMM.FAF   GO DO IT 
-         VFD    12/0,18/CMMFAF-1 
          BX6    X1 
          SA3    A0 
          SA6    X3          BLKFWA 
          BX6    X2 
          SA3    A3+B1
          SA6    X3          BLOCK SIZE 
          RTRN   CMMFAF 
          END 
