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