ASMB,L,R,C
* 
*  **************************************************************** 
*  * (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 WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
*   NAME: PART OF MATH LIBRARY
*   SOURCE:  24998-18XXX  SEE NAM FOR LAST THREE DIGITS 
*   RELOC: PART OF 24998-12001
*   PGMR: BG & JTS
* 
      HED "..TCM" - NEGATE TRIPLE-PRECISION NUMBER IN PLACE.
      NAM ..TCM,7 24998-1X169 REV.2001 780424 
* 
      ENT ..TCM 
      EXT .TSUB,.4ZRO 
* 
A     EQU 0 
B     EQU 1 
* 
*     ..TCM NEGATES A TRIPLE-PRECISION NUMBER IN PLACE BY SUBTRACTING 
*     IT FROM ZERO.  IF THE NUMBER WAS -2**127 THE RESULT IS
*     (1-2**-55)*2**127  WITH OVERFLOW.  IF THE NUMBER WAS
*     2**-129 THE RESULT IS ZERO WITH NO OVERFLOW.
* 
*     CALLING SEQUENCE: 
* 
*                   JSB ..TCM 
*                   DEF <ARG & RESULT>
* 
..TCM NOP 
      STA TEMP      SAVE A-REG. 
      LDA ..TCM,I   COPY ARG ADDR.
      ISZ ..TCM 
      STA ARG 
      LDA TEMP      RESTORE A-REG.
      JSB .TSUB     SUBTRACT FROM ZERO. 
ARG   DEF *-* 
      DEF .4ZRO+0 
      DEF ARG,I 
      JMP ..TCM,I   EXIT
* 
TEMP  BSS 1         FOR A-REG.
* 
      END 
                                                                            