*DECK FCMMSLF 
          IDENT  CMMSLF 
 CMMSLF   TITLE  CMMSLF - SHRINK BLOCK AT LWA.
          COMMENT  SHRINK BLOCK AT LWA
          SYSCOM B1 
*CALL FCMMCOM 
          SPACE  2,2
***       CMMSLF - SHRINK BLOCK AT LWA. 
* 
*         CALL CMMSLF(BLKFWA,NUM) 
*                BLKFWA - BLOCK FIRST WORD ADDRESS. 
*                NUM    - NUMBER OF WORDS TO RELEASE. 
* 
 CMMSLF   SPACE  4,4
          SUBRTN CMMSLF 
          SA2    A1+B1
          SA1    X1          BLKFWA 
          SA2    X2          NUM
+         RJ     =XCMM.SLF
-         VFD    12/0,18/CMMSLF-1 
          RTRN   CMMSLF 
          END 
