*DECK S$EXECU 
          IDENT  S$EXECU
          TITLE  S$EXECU -  EXECUTE GENERATED CODE
          COMMENT  EXECUTE GENERATED CODE 
          SPACE  4
**        S$EXECU -  EXECUTE GENERATED CODE 
* 
*     CALLING SEQUENCE- 
*         S$EXECU(CODE$, PARM-1, ..., PARM-N);
* 
*     GIVEN-
*         CODE$ AS DEFINED IN COMDECK CODE$ 
*         PARM-I = PARAMETER TO BE PASSED TO CALLED CODE. 
* 
*     DOES- 
*         TELLS CMM TO GET RID OF EXTRA 2K UNUSED SPACE.
*         CALLS THE CODE WITH THE INDICATED PARAMETERS. 
  
  
          ENTRY  S$EXECU
 S$EXECU  SUBR
          SX6    A1          SAVE ADDRESS OF ACTUAL PARAMETER LIST
          SA6    SAVEA1 
          CALL   CMM.OP4     TELL CMM TO GET RID OF EXTRA 2K UNUSED SPACE 
          SA1    SAVEA1      RESTORE ADDRESS OF ACTUAL PARAMETER LIST 
          SA1    X1 
          SB7    X1+1        ADDRESS TO CALL
          SA1    A1+1        A1 = NEW ACTUAL PARAMETER LIST 
                             (SKIP LENGTH FIELDS AT BEGINNING OF CODE$) 
          SA2    S$EXECU     RETURN INSTRUCTION 
          BX6    X2 
          SA6    B7          PRETEND CALLER OF S$EXECU CALLED CODE$ 
          JP     B7+1        EXECUTE CODE$
  
  
 SAVEA1   BSS    1           ADDRESS OF ACTUAL PARAMETER LIST 
          SPACE  4
          END 
