       .TITLE DCOS   COMPUTE COSINE OF DOUBLE ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL DCOS,.DA,.AO,.AQ,.DB
/             CALLING SEQUENCE
/      JMS*   (DCOS)          SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT  (XCT IF INDIRECT)
/
DCOS   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    DCOS02
DCOS01 CAL    0              /ARGUMENT
DCOS02 JMS*   .AO            /LOAD DOUBLE (.AO)
       .DSA   DCOS01+400000  / (ARG)
       JMS*   .AQ            /ADD DOUBLE (.AQ)
       .DSA   DCOS06         / (ARG+PI/2)
       JMS*   .DB            /COMPUTE SINE (.DB)
       JMP*   DCOS           /EXIT
DCOS06        1              / PI/2 (1)  (1.57079632679)
              311037         /      (2)
       .DSA   552424         /      (3)
       .END
