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