BASIC-MTHPAK

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

1572 * 1573 * 1574 * COSINE FUNCTION ROUTINE 1575 * 1576 * CALLING SEQUENCE: 1577 * 1578 * JST COSF 1579 * DAC ARG POINTER TO THE ARGUMENT 1580 * ......RETURN COSINE OF THE ARGUMENT IN A AND B REGISTERS 1581 * 1582 * 1583 * THE ROUTINE MOVES THE RETURN ADDRESS TO THE SINE ROUTINE. 1584 * THE ARGUMENT IS LOADED, AND ONE-HALF PI IS ADDED TO IT. THE ROUTINE 1585 * THEN JUMPS INTO THE SINE FUNCTION ROUTINE. NOTE THE IDENTITY: 1586 * COSINE(ARG)=SINE(ARG+PI/2) 1587 * 1588 * 1589 01274 0 000000 COSF DAC ** ENTRY 1590 01275 0 02 01274 LDA COSF MOVE RETURN ADDRESS TO SINF ENTRY 1591 01276 0 04 01303 STA SINF 1592 01277 0 10 00070 JST LARG LOAD THE ARGUMENT 1593 01300 0 10 00304 JST A$22 ADD PI/2 1594 01301 0 001364 DAC HFPI 1595 01302 0 01 01306 JMP *+4 JUMP INTO SINE FUNCTION 1596 EJCT