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

   1 /
   2 /
   3 /       D  C  O  S
   4 /       -  -  -  -
   5 /
   6 /SUBROUTINE     DCOS(X)
   7 /
   8 / VERSION 5A 4-27-77  PT
   9 /
  10         SECT    DCOS
  11         JA      #DCOS
  12         DPCHK
  13         TEXT    +DCOS  +
  14 COSXR,  SETX    XRCOS
  15         SETB    BPCOS
  16 BPCOS,  FNOP
  17         0
  18         0
  19         0
  20         0
  21         0
  22 XRCOS,  F 0.0
  23         F 0.0
  24 COS1,   F 0.0
  25         F 0.0
  26 FPI2CS, 1               /PI DIVIDED BY 2
  27         3110
  28         3755
  29         2421
  30         0264
  31         3016
  32         ORG     10*3+BPCOS
  33         FNOP
  34         JA      COSXR
  35         0
  36 COSRTN, JA      .
  37         BASE    0
  38 #DCOS,  STARTD
  39         FLDA    10*3
  40         FSTA    COSRTN
  41         FLDA    0
  42         SETX    XRCOS
  43         SETB    BPCOS
  44         BASE    BPCOS
  45         LDX     1,1
  46         FSTA    BPCOS
  47         FLDA%   BPCOS,1 /ADDR OF X
  48         FSTA    BPCOS
  49         STARTE
  50         FLDA%   BPCOS   /GET X
  51         FADD    FPI2CS  /ADD IN PI OVER 2
  52         FSTA    COS1
  53         EXTERN  DSIN
  54         JSR     DSIN    /AND CALL THE SIN
  55         JA      COSRTN
  56         JA      COS1
  57 \f