.TITLE COS    COMPUTE CONSINE OF REAL ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 1   10-22-70
       .GLOBL COS,.DA,.AG,.AI,.EB
/             CALLING SEQUENCE
/      JMS*   (COS)           SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
COS    CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    COS02
COS01  CAL    0              /ARGUMENT
COS02  JMS*   .AG            /LOAD REAL (.AG)
       .DSA   COS01+400000   / (ARG)
       JMS*   .AI            /ADD REAL (.AI)
       .DSA   COS06          / (ARG+PI/2)
       JMS*   .EB            /COMPUTE SINE (.EB)
       JMP*   COS            /EXIT
COS06         553001         / PI/2 (1)  (1.570796327)
              311037         /      (2)
       .END