*DECK S$PERF
          IDENT  S$PERF 
          TITLE  S$PERF -  WRITE PERFORMANCE DATA 
          COMMENT  WRITE PERFORMANCE DATA 
          LIST   F
          SPACE  4
**        S$PERF -  WRITE PERFORMANCE DATA
* 
*     CALLING SEQUENCE: 
*         S$PERF("LITERAL");
* 
*     GIVEN:  
*         "LITERAL" = A MNEMONIC, SUCH AS "S$MAIN-1". 
* 
*     WRITES A WORD A LA S$P, WITH AN ACTION CODE OF 5. 
  
  
          ENTRY  S$PERF 
 S$PERF   SUBR
        IFPERFM              IF PERFORMANCE MEASUREMENT WANTED, 
          SX6    5           ACTION CODE
*                            X1 = ADDRESS OF 10H"LITERAL" 
          CALL   S$P
          ENDIF 
          EXIT
  
  
          END 
