*DECK FCMMALF 
          IDENT  CMMALF 
 CMMALF   TITLE  CMMALF - ALLOCATE FIXED POSITION BLOCKS. 
          COMMENT  ALLOCATE FIXED POSITION BLOCKS 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMALF - ALLOCATE FIXED POSITION BLOCKS.
* 
*         CALL CMMALF(BLKSIZ,SIZCDE,GRPID,BLKFWA) 
* 
*                BLKSIZ - NUMBER OF WORDS REQUIRED FOR BLOCK. 
*                SIZCDE - 3 BIT CODE AS FOLLOWS:  
*                         0 - FIXED.
*                         1 - VARYING.
*                         1XX - FWA END CAN SHRINK. 
*                         X1X - LWA END CAN SHRINK. 
*                         XX1 - LWA END CAN GROW. 
*                GRPID  - GROUP IDENTIFIER. 
*                         =0 - BLOCK NOT IN A GROUP.
*                         <>0 - GROUP ID THAT WAS PREVIOUSLY RETURNED 
*                               BY CMMARG.
*                BLKFWA - FIRST WORD ADDRESS OF BLOCK.
* 
 CMMALF   SPACE  4,4
          SUBRTN CMMALF 
          SA2    X1          BLKSIZE
          SA1    A1+B1
          SA3    X1          SIZE CODE
          LX3    6
          SA1    A1+B1
          SA4    X1          GRPID
          LX4    12 
          BX3    X3+X4
          SA1    A1+B1
          SA0    X1          ADDRESS OF BLKFWA
+         RJ     =XCMM.ALF
-         VFD    12/0,18/CMMALF-1 
          BX6    X1 
          SA6    A0 
          RTRN   CMMALF 
          END 
