ASMB,L
      HED EMA INTERFACE TO "VSUM".
      NAM WSUM,7 12824-1X019 REV.2026 800506
      ENT WSUM
      EXT VSUM,.WCOM
**************************************************************
* 
*     NAME:   WSUM
*     SOURCE: 12824-18019 
*     RELOC:  PART OF 12824-12001 
*     PGMR:   BG,CG 
* 
*  ***********************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,  *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE    *
*  * WITHOUT THE PRIOR CONSENT OF HEWLETT-PACKARD COMPANY.   *
*  ***********************************************************
* 
**************************************************************
* 
*                   SEE ".WCOM" FOR INTERFACE DETAILS.
* 
WSUM  NOP 
      JSB .WCOM 
      DEF VSUM+0    NON-EMA ROUTINE.
      BYT 1,1       1 SCALAR, 1 VECTOR. 
      ABS 511+40000B  2 WORDS / ELEMENT & FLAGS.
* 
      END 
                          