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