sw/os8/v3d/sources/fortran/dectapes/dectape2/sind.ra

   1 /
   2 /
   3 /       S   I   N   D
   4 /       -   -   -   -
   5 /
   6 /SUBROUTINE SIND(X)
   7 /
   8 / VERSION 5A 4-27-77  PT
   9 /
  10         SECT    SIND
  11         JA      #SIND
  12         TEXT    +SIND  +
  13 SINDXR, SETX    XRSIND
  14         SETB    BPSIND
  15 BPSIND, FNOP
  16         0
  17         0
  18 XRSIND, F 0.0
  19 SIND91, 6
  20         3451
  21         3560
  22 SIND1,  F 0.0
  23         ORG     10*3+BPSIND
  24         FNOP
  25         JA      SINDXR
  26         0
  27 SNDRTN, JA      .
  28         BASE    0
  29 #SIND,  STARTD
  30         FLDA    10*3
  31         FSTA    SNDRTN
  32         FLDA    0
  33         SETX    XRSIND
  34         SETB    BPSIND
  35         BASE    BPSIND
  36         LDX     1,1
  37         FSTA    BPSIND
  38         FLDA%   BPSIND,1        /ADDR OF X
  39         FSTA    BPSIND
  40         STARTF
  41         FLDA%   BPSIND  /GET X IN DEGREES
  42         FDIV    SIND91  /CONVERT TO RADIANS
  43         FSTA    SIND1
  44         EXTERN  SIN
  45         JSR     SIN     /CALL THE SINE
  46         JA      SNDRTN
  47         JA      SIND1
  48 \f