BASIC-MTHPAK

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

1547 01252 0 10 00155 JST DADD 1/2 + 1/8 = 5/8 * MANTISSA 1548 01253 0 06 01273 ADD C30K ASD 3/8 1549 01254 0 10 00202 JST NORM REPACK THE FLOATING POINT 1550 01255 0 10 00104 SQ01 JST H$22 SAVE AS XOLD 1551 01256 0 001017 DAC FTMP 1552 * 1553 * NEWTON-RAPHSON METHOD: XNEW=1/2*(ARG/XOLD+XOLD) 1554 * 1555 01257 0 02 01223 LDA SQRF LOAD THE ARGUMENT 1556 01260 0 10 00070 JST LARG 1557 01261 0 10 00361 JST D$22 ARG/XOLD 1558 01262 0 001017 DAC FTMP 1559 01263 0 10 00304 JST A$22 ARG/XOLD + XOLD 1560 01264 0 001017 DAC FTMP 1561 01265 0 07 00572 SUB C200 1/2*(ARG/XOLD+XOLD) 1562 01266 0 12 00650 IRS CTMP INCREMENT THE ITERATION COUNTER 1563 01267 0 01 01255 JMP SQ01 LOOP IF COUNTER IS NON-ZERO 1564 01270 0 12 01223 IRS SQRF INCREMENT FOR RETURN 1565 01271 -0 01 01223 JMP* SQRF RETURN IF COUNTER EQUALS ZERO 1566 * 1567 * 1568 01272 177774 M4 OCT -4 1569 01273 030000 C30K OCT 30000 1570 FIN 1571 EJCT