BASIC-MTHPAK

* NAME BASIC-MTHPAK DOC. 70181832000 REV. A PAGE 39

1361 * 1362 * 1363 * EXPONENTIAL FUNCTION 1364 * 1365 * CALLING SEQUENCE: 1366 * 1367 * JST EXPF 1368 * DAC ARG POINTER TO ARGUMENT 1369 * ..... RETURN E^(ARG) IN THE A AND B REGISTERS 1370 * 1371 * 1372 * THE ARGUMENT IS LOADED, SAVED, AND THEN DIVIDED BY THE 1373 * NATURAL LOGARITM OF TWO. THE QUOTIENT IS CONVERTED TO AN INTEGER, 1374 * ONE IS ADDED TO IT, AND THE RESULT IS SAVED AS Z2. IF THE QUOTIENT 1375 * IS OUT OF INTEGER RANGE, NUMERIC UNDERFLOW (NU) OR NUMERIC OVERFLOW 1376 * (NO) IS FLAGGED THROUGH NORM , DEPENDING ON THE ARGUMENT'S SIGN. Z2 1377 * IS THEN MULTIPLIED BY THE NATURAL LOGARITHM OF TWO, AND THE 1378 * ORIGINAL ARGUMENT IS SUBTRACTED FROM IT. A POLYNOMIAL IS EVALUATED 1379 * IN THE DIFFERENCE WITH FOLLOWING COEFFICIENTS:C0=1.0, C1=-1.0, 1380 * C2=.4999999,C3=-.1666653, C4:.04165735, C5=-.00830136, 1381 * C6=.001329882, C7=-.0001413161. Z2 IS ADDED TO THE EXPONENT OF THE 1382 * POLYNOMIAL RESULT FOR THE FUNCTION RESULT. 1383 * 1384 * 1385 01107 0 000000 EXPF DAC ** ENTRY 1386 01110 0 02 01107 LDA EXPF 1387 01111 0 10 00070 JST LARG LOAD THE ARGUMENT 1388 01112 0 10 00104 JST H$22 SAVE IT AS Z0 1389 01113 0 001221 DAC Z0 1390 01114 0 10 00361 JST D$22 DIVIDE THE ARGUMENT BY THE 1391 01115 0 001166 DAC LN2 NATURAL LOGARITHM OF TWO 1392 01116 0 10 00604 JST IFLT CONVERT IT TO AN INTEGER 1393 01117 0 01 01140 JMP EX01 OUT OF INTEGER RANGE 1394 01120 141206 AOA ADD ONE 1395 01121 0 04 01170 STA Z2 AND SAVE 1396 01122 0 10 00573 JST FINT FLOAT IT 1397 01123 0 10 00530 JST M$22 MULTIPLY BY THE NATURAL LOG OF TWO 1398 01124 0 001166 DAC LN2 1399 01125 0 10 00277 JST S$22 SUBTRACT THE ORIGINAL ARGUMENT 1400 01126 0 001221 DAC Z0 1401 01127 0 10 01172 JST FPLY EVALUATE POLYNOMIAL 1402 01130 0 001164 DAC EX02 1403 01131 0 10 00134 JST UNPK UNPACK THE RESULT 1404 01132 0 13 00152 IMA EXPT LOAD THE EXPONENT 1405 01133 0 06 01170 ADD Z2 ADD Z2 1406 01134 0 13 00152 IMA EXPT RESTORE THE FORMAT 1407 01135 0 10 00202 JST NORM REPACK 1408 01136 0 12 01107 IRS EXPF SET-UP RETURN ADDRESS 1409 01137 -0 01 01107 JMP* EXPF RETURN 1410 01140 0 02 01221 EX01 LDA Z0 LOAD THE HIGH WORD OF THE ARGUMENT