*DECK CMM$SLF 
          IDENT  CMM$SLF     SHRINKS FWA OR LWA OF FIXED-POSITION BLOCK 
 CMM$SLF  TITLE  CMM$SLF - SHRINK FIXED BLOCK AT LWA
          COMMENT  SHRINK FIXED BLOCK AT LWA
          SPACE  3
                             THE FOLLOWING MACRO SETS THE VALUE OF THE
                             FIRST PARAMETER IN X1, THE VALUE OF THE
                             SECOND PARAMETER IN X2, THEN RETURN-JUMPS
                             TO THE SPECIFIED NAME. 
          MACRO  TO,HERE,THERE
          ENTRY  HERE 
HERE      DATA   0
          SA2    A1+1 
          SA2    X2 
          SA1    X1 
          RJ     =X_THERE 
          EQ     HERE 
          ENDM
          SPACE  3
                               SHRINKS LWA OF FIXED-POSITION BLOCK
                               CALLING SEQUENCE IS: 
                               CALL CMM$SLF(<BLOCK-FWA>,<NUMBER-WORDS>) 
CMM$SLF   TO     CMM.SLF
          SPACE  3
          END 
