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