*DECK CMM$FRF 
          IDENT  S$CMFRF
          TITLE  S$CMFRF -  FREE FIXED BLOCK
          COMMENT  FREE FIXED BLOCK 
          LIST   F
          SPACE  4
**        S$CMFRF -  FREE FIXED BLOCK 
* 
*     CALLING SEQUENCE- 
*         S$CMFRF(ARRAY); 
* 
*     DOES- 
*         FREES THE CMM BLOCK POINTED TO BY THE PARAMETER.
  
  
          ENTRY  S$CMFRF
 S$CMFRF  SUBR
  
*     WRITE DYNAMIC MEMORY MAP (OPTION) 
  
          IFMAP              IF DYNAMIC MEMORY MAP WANTED,
            SX6    A1          SAVE ADDRESS OF ACTUAL PARAMETER LIST
            SA6    SAVEA1 
            SA1    =0          POINT TO ZERO-WORD APLIST TERMINATOR 
            CALL   MAP         WRITE MAP TO SPYLIST 
            SA1    SAVEA1      RESTORE ADDRESS OF ACTUAL PARAMETER LIST 
            SA1    X1 
            ENDIF 
          CALL   CMM.FRF     FREE THE BLOCK 
          EXIT
          SPACE  4
  
  
          IFMAP              IF DYNAMIC MEMORY MAP WANTED,
 SAVEA1     BSS    1         ADDRESS OF ACTUAL PARAMETER LIST 
            ENDIF 
          END 
