BASIC-MTHPAK

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

1673 * 1674 * 1675 * TANGENT FUNCTION ROUTINE 1676 * 1677 * CALLING SEQUENCE: 1678 * 1679 * JST TANF 1680 * DAC ARG POINTER TO THE ARGUMENT 1681 * ......RETURN TANGENT OF THE ARGUMENT IN THE A AND B 1682 * REGISTERS 1683 * 1684 * 1685 * THE ARGUMENT IS LOADED AND SAVED. THE COSINE OF THE ARGUMENT 1686 * IS TAKEN AND SAVED. THE SINE OF THE ARGUMENT IS TAKEN AND DIVIDED 1687 * BY THE COSINE TO OBTAIN THE TANGENT. 1688 * 1689 * 1690 01372 0 000000 TANF DAC ** ENTRY 1691 01373 0 02 01372 LDA TANF 1692 01374 0 10 00070 JST LARG LOAD THE ARGUMENT 1693 01375 0 10 00104 JST H$22 STORE IT 1694 01376 0 001021 DAC ETMP 1695 01377 0 10 01274 JST COSF TAKE COSINE OF ARGUMENT 1696 01400 0 001021 DAC ETMP 1697 01401 0 10 00104 JST H$22 SAVE COSINE 1698 01402 0 001017 DAC FTMP 1699 01403 0 10 01303 JST SINF TAKE SINE OF THE ARGUMENT 1700 01404 0 001021 DAC ETMP 1701 01405 0 10 00361 JST D$22 DIVIDE SINCE BY COSINE FOR TANGENT 1702 01406 0 001017 DAC FTMP 1703 01407 0 12 01372 IRS TANF INCREMENT FOR RETURN 1704 01410 -0 01 01372 JMP* TANF RETURN 1705 FIN 1706 EJCT