1 /INTEGER POWERS OF NUMBERS ...INTEGER AND FLOATING POINT
3 /OS8 FORTRAN II LIBRARY
12 /COPYRIGHT (C) 1974,1977 BY DIGITAL EQUIPMENT CORPORATION
23 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
24 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
25 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
26 /FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
28 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
29 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
30 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
31 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
33 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
34 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
47 / VERSION NUMBER IS AVAILABLE AT ENTRY POINTS
83 NCDF, NOP /GET FIELD OF EXPONENT
90 /********* THE FOLLOWING CODE MAY BE REPLACED BY JUST "SNA CLA"
91 /********* IF THE RULES ARE THAT 0**ANYTHING=0 FOR FLOATING
92 /********* POINT TOO. (REMEMBER 0**0 AND 0**-1!)
97 JMP IPRTRN /BASE=0 MEANS RESULT=0
102 DCA ACH /INITIALIZE FPAC TO 1.0
103 DCARSL, DCA RSLT /INITIALIZE RSLT TO FISW
104 SNL /THE LINK SHOULD CONTAIN THE EXPONENT SIGN
105 JMP BACK /POSITIVE - ALLS WELL
108 JMP IPRTRN /I**-N = 0
110 ARG X /THERE'S A 1.0 IN THE AC, REMEMBER?
113 CLL /FAKE A POSITIVE SIGN
114 JMP ACHONE /GO BACK AND RESTORE FPAC TO 1.0
116 BACK, TAD N /USE STANDARD POWER-OF-2 ALGORITHM FOR POWERS
125 JMP FPMULT /RSLT=0 MEANS FLOATING POINT
141 FPMULT, CALL 1,FMP /DO THE SAME STUFF IN FLOATING POINT
142 ARG X /THAT WE DID ABOVE IN INTEGERS
146 ARG RSLT /SAVE FLTG AC
155 DCA RSLT /KEEP RSLT ZERO!