       .TITLE SIN    COMPUTE SINE OF REAL ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 1   10-22-70
       .GLOBL SIN,.DA,.AG,.EB
/             CALLING SEQUENCE
/      JMS*   (SIN)           SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
SIN    CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    SIN02
SIN01  CAL    0              /ARGUMENT
SIN02  JMS*   .AG            /LOAD REAL (.AG)
       .DSA   SIN01+400000   / (ARG)
       JMS*   .EB            /COMPUTE SINE (.EB)
       JMP*   SIN            /EXIT
       .END
