File: COSD.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=COSD(R) SINGLE PREC. TRIG. COS (DEGREES)
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT COSD
00000 1030 JA #COSD
00001 0047
00002 0317 TEXT +COSD +
00003 2304
00004 4040
00005 1100 COSDXR, SETX XRCOSD
00006 0014
00007 1110 SETB BPCOSD
00010 0011
00011 0040 BPCOSD, FNOP
00012 0000 0
00013 0000 0
00014 0000 XRCOSD, F 0.0
00015 0000
00016 0000
00017 0007 COSD90, F 90.
00020 2640
00021 0000
00022 0006 COSD91, 6 /360./(2*PI)
00023 3451 3451
00024 3560 3560
00025 0000 COSD1, F 0.0
00026 0000
00027 0000
ORG 10*3+BPCOSD
00041 0040 FNOP
00042 1030 JA COSDXR
00043 0005
00044 0000 0
00045 1030 CSDRTN, JA .
00046 0045
/
BASE 0
00047 0006 #COSD, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA CSDRTN
00052 0045
00053 0200 FLDA 0
00054 1100 SETX XRCOSD
00055 0014
00056 1110 SETB BPCOSD
00057 0011
BASE BPCOSD
00060 0101 LDX 1,1
00061 0001
00062 6200 FSTA BPCOSD
00063 0610 FLDA% BPCOSD,1 /ADDR OF X
00064 6200 FSTA BPCOSD
00065 0005 STARTF
RALF V50A 8-APR-92 PAGE 1-1
00066 0600 FLDA% BPCOSD /GET X IN DEGREES
00067 1202 FADD COSD90 /ADD IN 90
00070 3203 FDIV COSD91 /CONVERT TO RADIANS
00071 6204 FSTA COSD1
EXTERN SIN
00072 1130 JSR SIN /CALL THE SINE
00073 0000
00074 1030 JA CSDRTN
00075 0045
00076 1030 JA COSD1
00077 0025
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
10 SYMBOLS, NO ABS REFS
# C 00000 #COSD 00047 #MAIN S 00000 BPCOSD 00011
COSD S 00100 COSDXR 00005 COSD1 00025 COSD90 00017
COSD91 00022 CSDRTN 00045 SIN X 00000 XRCOSD 00014