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 * ..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