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