File: COS.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/R=COS(R) SINGLE PREC. TRIG. COSINE / / / VERSION 40A 26-MAY-80 WVDM / / SECT COS JA #COS TEXT +COS + COSXR, SETX XRCOS SETB BPCOS BPCOS, FNOP 0 0 XRCOS, F 0.0 COS1, F 0.0 FPI2CS, 1 /PI DIVIDED BY 2 3110 3755 ORG 10*3+BPCOS FNOP JA COSXR 0 COSRTN, JA . BASE 0 #COS, STARTD FLDA 10*3 FSTA COSRTN FLDA 0 SETX XRCOS SETB BPCOS BASE BPCOS LDX 1,1 FSTA BPCOS FLDA% BPCOS,1 /ADDR OF X FSTA BPCOS STARTF FLDA% BPCOS /GET X FADD FPI2CS /ADD IN PI OVER 2 FSTA COS1 EXTERN SIN JSR SIN /AND CALL THE SIN JA .+4 JA COS1 JA COSRTN