sw/os8/v3d/sources/fortran/all/cosd.ra

   1 /
   2 /
   3 /
   4 /       C  O  S  D
   5 /       -  -  -  -
   6 /
   7 /SUBROUTINE     COSD(X)
   8 /
   9 / VERSION 5A 4-27-77  PT
  10 /
  11         SECT    COSD
  12         JA      #COSD
  13         TEXT    +COSD  +
  14 COSDXR, SETX    XRCOSD
  15         SETB    BPCOSD
  16 BPCOSD, FNOP
  17         0
  18         0
  19 XRCOSD, F 0.0
  20 COSD90, F 90.
  21 COSD91, 6
  22         3451
  23         3560
  24 COSD1,  F 0.0
  25         ORG     10*3+BPCOSD
  26         FNOP
  27         JA      COSDXR
  28         0
  29 CSDRTN, JA      .
  30         BASE 0
  31 #COSD,  STARTD
  32         FLDA    10*3
  33         FSTA    CSDRTN
  34         FLDA    0
  35         SETX    XRCOSD
  36         SETB    BPCOSD
  37         BASE    BPCOSD
  38         LDX     1,1
  39         FSTA    BPCOSD
  40         FLDA%   BPCOSD,1        /ADDR OF X
  41         FSTA    BPCOSD
  42         STARTF
  43         FLDA%   BPCOSD  /GET X IN DEGREES
  44         FADD    COSD90  /ADD IN 90
  45         FDIV    COSD91  /CONVERT TO REDIANS
  46         FSTA    COSD1
  47         EXTERN  SIN
  48         JSR     SIN     /CALL THE SINE
  49         JA      CSDRTN
  50         JA      COSD1
  51 \f