File: ASIN.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=ASIN(R) SINGLE PREC. ARC-SINE
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT ASIN
00000 1030 JA #ASIN
00001 0051
EXTERN #ARGER
00002 4000 ASINER, TRAP4 #ARGER /TRAP OUT.
00003 0000
00004 0123 TEXT +ASIN +
00005 1116
00006 4040
00007 1100 ASINXR, SETX XRASIN
00010 0016
00011 1110 SETB BPASIN
00012 0013
00013 0040 BPASIN, FNOP
00014 0000 0
00015 0000 0
00016 0000 XRASIN, F 0.0
00017 0000
00020 0000
00021 0000 ASIN8, F 0.0
00022 0000
00023 0000
00024 0000 ASIN7, F 0.0
00025 0000
00026 0000
00027 0001 F1ASIN, F 1.
00030 2000
00031 0000
00032 0001 FPI2AS, 1 /PI OVER 2
00033 3110 3110
00034 3755 3755
ORG 10*3+BPASIN
00043 0040 FNOP
00044 1030 JA ASINXR
00045 0007
00046 0000 0
00047 1030 ASNRTN, JA .
00050 0047
/
BASE 0
00051 0006 #ASIN, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA ASNRTN
00054 0047
00055 0200 FLDA 0
00056 1100 SETX XRASIN
00057 0016
00060 1110 SETB BPASIN
00061 0013
BASE BPASIN
RALF V50A 8-APR-92 PAGE 1-1
00062 0101 LDX 1,1
00063 0001
00064 6200 FSTA BPASIN
00065 0610 FLDA% BPASIN,1 /ADDR OF X
00066 6200 FSTA BPASIN
00067 0005 STARTF
00070 0600 FLDA% BPASIN /GET X
00071 6202 FSTA ASIN8 /STORE ARG AWAY.
00072 1010 JGE .+3 /TAKE ABSOLUTE VALUE.
00073 0075
00074 0003 FNEG
00075 2204 FSUB F1ASIN /SEE IF >1
00076 1060 JGT ASINER /YES, ERROR
00077 0002
00100 0202 FLDA ASIN8 /X USES STRAIGHT TRIG RELATION.
00101 0003 FNEG
00102 4202 FMUL ASIN8 /-X^2
00103 1204 FADD F1ASIN /1.-X^2
00104 1000 JEQ ASINEQ /IF 0,FAC=PI OVER 2
00105 0131
00106 6203 FSTA ASIN7
EXTERN SQRT
00107 1130 JSR SQRT
00110 0000
00111 1030 JA .+4
00112 0115
00113 1030 JA ASIN7
00114 0024
00115 6203 FSTA ASIN7 /SQRT(1.-X^2)
00116 0202 FLDA ASIN8
00117 3203 FDIV ASIN7 /X/SQRT(1.-X^2)
00120 6203 FSTA ASIN7
EXTERN ATAN
00121 1130 JSR ATAN /TAKE THE ARCTANGENT.
00122 0000
00123 1030 JA .+4
00124 0127
00125 1030 JA ASIN7
00126 0024
00127 1030 JA ASNRTN
00130 0047
/
00131 0205 ASINEQ, FLDA FPI2AS /RETURN PI OVER TWO.
00132 4202 FMUL ASIN8 /TIMES ARG.
00133 1030 JA ASNRTN
00134 0047
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
15 SYMBOLS, NO ABS REFS
# C 00000 #ARGER X 00000 #ASIN 00051 #MAIN S 00000
ASIN S 00135 ASINEQ 00131 ASINER 00002 ASINXR 00007
ASIN7 00024 ASIN8 00021 ASNRTN 00047 ATAN X 00000
BPASIN 00013 FPI2AS 00032 F1ASIN 00027 SQRT X 00000
XRASIN 00016