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 DOUBLE TO REAL POWER
      NAM .DTOR,7 24998-1X049 REV.2001 750701 
      ENT .DTOR 
      EXT .DTOD,DBLE
      SPC 2 
*     CALLING SEQUENCE: Y = D **R 
*     JSB .DTOR 
*     DEF Y 
*     DEF D 
*     DEF R 
*     (ERROR RETURN)
*     (NORMAL RETURN) 
      SPC 2 
.DTOR NOP 
      LDA .DTOR,I 
      STA Y         SAVE ADDRESS OF Y 
      ISZ .DTOR 
      LDA .DTOR,I 
      STA D         SAVE ADDRESS OF D 
      ISZ .DTOR 
      LDA .DTOR,I 
      STA R         SAVE ADDRESS OF R 
      ISZ .DTOR     SET RETURN ADDRESS
      JSB DBLE      CONVERT R TO DOUBLE PRECISION 
      DEF *+3 
      DEF R 
      DEF R,I 
      JSB .DTOD     COMPUTE Y = D **R 
      DEF Y,I 
      DEF D,I 
      DEF R 
      JMP .DTOR,I   ERROR RETURN
      ISZ .DTOR 
      JMP .DTOR,I   NORMAL RETURN 
Y     NOP           ADDRESS OF Y
D     NOP           ADDRESS OF D
R     REP 3         POWER. CONVERTED TO DOUBLE
      NOP 
      END 
* 
* 
                                                                                                                                                                                                                                    