.TITLE DSIN   COMPUTE SINE OF DOUBLE ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL DSIN,.DA,.AO,.DB
/             CALLING SEQUENCE
/      JMS*   (DSIN)          SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
DSIN   CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    DSIN02
DSIN01 CAL    0              /ARGUMENT
DSIN02 JMS*   .AO            /LOAD DOUBLE (.AO)
       .DSA   DSIN01+400000  / (ARG)
       JMS*   .DB            /COMPUTE SINE (.DB)
       JMP*   DSIN           /EXIT
       .END