File: SIND.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/R=SIND(R) SINGLE PREC. DEGREES TRIG. SINE / / / VERSION 40A 27-MAY-80 WVDM / / SECT SIND JA #SIND TEXT +SIND + SINDXR, SETX XRSIND SETB BPSIND BPSIND, FNOP 0 0 XRSIND, F 0.0 SIND91, 6 /360./(2*PI) 3451 3560 SIND1, F 0.0 ORG 10*3+BPSIND FNOP JA SINDXR 0 SNDRTN, JA . BASE 0 #SIND, STARTD FLDA 10*3 FSTA SNDRTN FLDA 0 SETX XRSIND SETB BPSIND BASE BPSIND LDX 1,1 FSTA BPSIND FLDA% BPSIND,1 /ADDR OF X FSTA BPSIND STARTF FLDA% BPSIND /GET X IN DEGREES FDIV SIND91 /CONVERT TO RADIANS FSTA SIND1 EXTERN SIN JSR SIN /CALL THE SINE JA .+4 JA SIND1 JA SNDRTN