File: DCOS.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/D=DCOS(D) DOUBLE PREC. TRIG. COSINE
/
/
/ VERSION 50A 28-MAY-80 WVDM
/
/
SECT DCOS
00000 1030 JA #DCOS
00001 0047
DPCHK
00002 0403 TEXT +DCOS +
00003 1723
00004 4040
00005 1100 COSXR, SETX XRCOS
00006 0017
00007 1110 SETB BPCOS
00010 0011
00011 0040 BPCOS, FNOP
00012 0000 0
00013 0000 0
00014 0000 0
00015 0000 0
00016 0000 0
00017 0000 XRCOS, F 0.0
00020 0000
00021 0000
00022 0000 F 0.0
00023 0000
00024 0000
00025 0000 COS1, F 0.0
00026 0000
00027 0000
00030 0000 F 0.0
00031 0000
00032 0000
00033 0001 FPI2CS, 1 /PI DIVIDED BY 2
00034 3110 3110
00035 3755 3755
00036 2421 2421
00037 0264 0264
00040 3016 3016
ORG 10*3+BPCOS
00041 0040 FNOP
00042 1030 JA COSXR
00043 0005
00044 0000 0
00045 1030 COSRTN, JA .
00046 0045
/
BASE 0
00047 0006 #DCOS, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA COSRTN
00052 0045
00053 0200 FLDA 0
00054 1100 SETX XRCOS
RALF V50A 8-APR-92 PAGE 1-1
00055 0017
00056 1110 SETB BPCOS
00057 0011
BASE BPCOS
00060 0101 LDX 1,1
00061 0001
00062 6200 FSTA BPCOS
00063 0610 FLDA% BPCOS,1 /ADDR OF X
00064 6200 FSTA BPCOS
00065 0050 STARTE
00066 0600 FLDA% BPCOS /GET X
00067 1206 FADD FPI2CS /ADD IN PI OVER 2
00070 6204 FSTA COS1
EXTERN DSIN
00071 1130 JSR DSIN /AND CALL THE SIN
00072 0000
00073 1030 JA COSRTN
00074 0045
00075 1030 JA COS1
00076 0025
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #DCOS 00047 #MAIN S 00000 BPCOS 00011
COSRTN 00045 COSXR 00005 COS1 00025 DCOS S 00077
DSIN X 00000 FPI2CS 00033 XRCOS 00017