File: COS.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=COS(R) SINGLE PREC. TRIG. COSINE
/
/
/ VERSION 50A 26-MAY-80 WVDM
/
/
SECT COS
00000 1030 JA #COS
00001 0047
00002 0317 TEXT +COS +
00003 2340
00004 4040
00005 1100 COSXR, SETX XRCOS
00006 0014
00007 1110 SETB BPCOS
00010 0011
00011 0040 BPCOS, FNOP
00012 0000 0
00013 0000 0
00014 0000 XRCOS, F 0.0
00015 0000
00016 0000
00017 0000 COS1, F 0.0
00020 0000
00021 0000
00022 0001 FPI2CS, 1 /PI DIVIDED BY 2
00023 3110 3110
00024 3755 3755
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 #COS, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA COSRTN
00052 0045
00053 0200 FLDA 0
00054 1100 SETX XRCOS
00055 0014
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 0005 STARTF
00066 0600 FLDA% BPCOS /GET X
00067 1203 FADD FPI2CS /ADD IN PI OVER 2
00070 6202 FSTA COS1
EXTERN SIN
RALF V50A 8-APR-92 PAGE 1-1
00071 1130 JSR SIN /AND CALL THE SIN
00072 0000
00073 1030 JA .+4
00074 0077
00075 1030 JA COS1
00076 0017
00077 1030 JA COSRTN
00100 0045
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #COS 00047 #MAIN S 00000 BPCOS 00011
COS S 00101 COSRTN 00045 COSXR 00005 COS1 00017
FPI2CS 00022 SIN X 00000 XRCOS 00014