sw/f4/FRTSRC/cos.ra

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