BASIC-MTHPAK

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

1757 01435 0 001170 DAC Z2 1758 01436 0 12 01502 IRS SFAC INCREMENT THE SCALE FACTOR FLAG 1759 01437 0 01 01442 JMP *+3 NO SKIP-DON'T ADD THE SCALE FACTOR 1760 01440 0 10 00304 JST A$22 ADD SCALE FACTOR OF PI/2 1761 01441 0 001364 DAC HFPI 1762 01442 0 12 00650 IRS CTMP INCREMENT THE SIGN FLAG 1763 01443 0 10 00122 JST N$22 NO SKIP-TWO'S COMPLIMENT 1764 01444 0 12 01411 IRS ATNF SET-UP RETURN ADDRESS 1765 01445 -0 01 01411 JMP* ATNF RETURN 1766 01446 0 10 00104 AT01 JST H$22 SAVE THE ARGUMENT AS Z2 1767 01447 0 001170 DAC Z2 1768 01450 0 10 00100 JST L$22 LOAD FLOATING POINT MINUS ONE 1769 01451 0 000000 DAC FM1 1770 01452 0 10 00361 JST D$22 -1/ARGUMENT 1771 01453 0 001170 DAC Z2 1772 01454 0 12 01502 IRS SFAC SET SCALE FACTOR FLAG SO THAT SCALE FACTOR 1773 01455 0 01 01426 JMP AT02 1774 * 1775 * 1776 01456 040300 ATN0 DEC 1.0 01457 000000 1777 01460 140052 ATN1 OCT 140052,125312 01461 125312 1778 01462 037546 ATN2 OCT 37546,56762 01463 056762 1779 01464 140267 ATN3 OCT 140267,40034 01465 040034 1780 01466 037355 ATN4 OCT 37355,17302 01467 017302 1781 01470 140462 ATN5 OCT 140462,163506 01471 163506 1782 01472 037127 ATN6 OCT 37127,160377 01473 160377 1783 01474 141075 ATN7 OCT 141075,144377 01475 144377 1784 01476 036135 ATN8 OCT 36135,165645 01477 165645 1785 01500 0 001476 AT03 DAC ATN8 1786 01501 177770 DEC -8 1787 01502 000000 SFAC BSZ 1 1788 01503 177776 M2 OCT -2 1789 001503 PP12 EQU *-1 1790 EJCT