BASIC-MTHPAK

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

1647 01334 0 001170 DAC Z2 1648 01335 0 10 00530 SN01 JST M$22 SQUARE THE REDUCED ARGUMENT 1649 01336 0 001170 DAC Z2 1650 01337 0 10 01172 JST FPLY EVALUATE POLYNOMIAL IN 1651 01340 0 001362 DAC SN03 THE REDUCED ARGUMENT SQUARED 1652 01341 0 10 00530 JST M$22 MULTIPLY REDUCED ARGUMENT 1653 01342 0 001170 DAC Z2 1654 01343 0 12 01303 IRS SINF SET-UP RETURN ADDRESS 1655 01344 -0 01 01303 JMP* SINF RETURN 1656 01345 0 10 00100 SN02 JST L$22 RELOAD THE FRACTIONAL PART OF THE ARGUMENT 1657 01346 0 001170 DAC Z2 1658 01347 0 01 01335 JMP SN01 JUMP TO THE POLYNOMIAL EVALUATION 1659 * 1660 * 1661 01350 040744 SIN0 OCT 40744,103755 01351 103755 1662 01352 136255 SIN1 OCT 136255,50420 01353 050420 1663 01354 041721 SIN2 OCT 41721,115054 01355 115054 1664 01356 136063 SIN3 OCT 136063,66316 01357 066316 1665 01360 041517 SIN4 OCT 41517,65735 01361 065735 1666 01362 0 001360 SN03 DAC SIN4 1667 01363 177774 DEC -4 1668 01364 040344 HFPI OCT 40344,103755 01365 103755 1669 001350 TWPI EQU SIN0 PI MULTIPLIED BY TWO 1670 01366 037700 FFRH DEC 0.25 01367 000000 1671 01370 040100 FHLF DEC 0.5 01371 000000 1672 EJCT