*DECK FCMMFWA 
          IDENT  CMMFWA 
 CMMFWA   TITLE  CMMFWA - GET BLOCK FIRST WORD ADDRESS. 
          COMMENT  GET BLOCK FIRST WORD ADDRESS 
          SYSCOM B1 
*CALL FCMMCOM 
***       CMMFWA - GET BLOCK FIRST WORD ADDRESS.
* 
*         CALL CMMFWA(UNIQID,BLKFWA,BLKSI0) 
* 
*                UNIQID - SEE CMM REFERANCE MANUAL PAGE 2-3.
*                BLKFWA - BLOCK FIRST WORD ADDRESS. 
*                BLKSIZ - CURRENT BLOCK LENGTH IN WORDS.
* 
 CMMFWA   SPACE  4,4
          SUBRTN CMMFWA 
          SA2    X1          UNIQID 
          SA0    A1+B1
+         RJ     =XCMM.FWA
-         VFD    12/0,18/CMMFWA-1 
          MX0    30 
          BX6    -X0*X1 
          SA2    A0 
          SA6    X2          BLKFWA 
          SA2    A2+B1
          BX6    X0*X1
          LX6    30 
          SA6    X2          BLKSIZ 
          RTRN   CMMFWA 
          END 
