ASMB,R,L,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 "SIGN" ABS(REAL VALUE) * SIGN (ANY VALUE) 
      NAM SIGN,6 24998-1X180 REV.2001 760106
      ENT SIGN
      EXT ..FCM 
      EXT .ZPRV 
* 
* 
* 
* 
*      CALL.. 
* 
*      JSB SIGN (RESULT FLOATING) 
*      DEF A    (FLOATING)
*      DEF B    (FLOATING OR INTEGER) 
* 
*      CALCULATES  SIGNUM(B)*ABS(A) . 
* 
SIGN  NOP 
      JSB .ZPRV 
      DEF LIBX
      LDA SIGN,I
      DLD A,I      PICK UP A
      ISZ SIGN
      SZA,RSS       EQUAL 0?
      JMP CLEAR     YES, RETURN 
      STA T 
      LDA SIGN,I
      LDA A,I      PICK UP SIGN(B)
      SZA,RSS       B = 0?
      JMP CLEAR    YES
      XOR T 
      ELA           SAVE COMPLEMENT FLAG
      LDA T 
      SEZ           SIGN CHANGE NEEDED? 
      JSB ..FCM     YES 
      JMP EXIT
CLEAR CLB          ANS=0
EXIT  ISZ SIGN
LIBX  JMP SIGN,I
      DEF SIGN
* 
T     OCT 0 
A     EQU 0 
      END 
* 
                                      