ASMB,R,L,C
      NAM CONJG,6 24998-1X089 REV.2013 791017 
      ENT CONJG 
      EXT .ZPRV,.ENTP,..FCM 
*********************************************************************** 
*                                                                     * 
*     NAME: CONJG                                                     * 
*   SOURCE: 24998-18089                                               * 
*    RELOC: PART OF 24998-12002                                       * 
*     PGMR: CRG                                                       * 
*                                                                     * 
*********************************************************************** 
*                                                                     * 
*     (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.           * 
*                                                                     * 
*********************************************************************** 
* 
* 
*     COMPLEX CONJUGATE 
* 
*     CALLING SEQUENCE:  Y=CONJG(X) 
* 
*                        JSB CONJG
*                        DEF *+3
*                        DEF Y
*                        DEF X
* 
* 
*********************************************************************** 
* 
Y     BSS 1 
X     BSS 1 
* 
CONJG NOP           ENTRY POINT 
      JSB .ZPRV 
      DEF LIBX
      JSB .ENTP     GET ADDRESSES 
      DEF Y 
* 
*********************************************************************** 
* 
*     MOVE REAL(X) INTO REAL(Y) 
* 
      DLD X,I 
      DST Y,I 
* 
*********************************************************************** 
      SKP 
*********************************************************************** 
* 
*     BUMP ADDRESSES TO IMAGINARY PARTS 
* 
      ISZ X 
      ISZ X 
* 
      ISZ Y 
      ISZ Y 
* 
*********************************************************************** 
* 
*     COMPLEMENT IMAG(X) INTO IMAG(Y) 
* 
      DLD X,I 
      JSB ..FCM     -IX 
      DST Y,I 
* 
*********************************************************************** 
* 
*     EXIT
* 
LIBX  JMP CONJG,I   RETURN
      DEF CONJG 
* 
*********************************************************************** 
      END 
                                                