File: EXP3.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=EXP3(B,E) INTERNAL FUNCTION CALLED BY EXPIR FOR R=B**E
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT EXP3
00000 1030 JA #EXP3
00001 0051
EXTERN #ARGER
00002 4000 EXP3ER, TRAP4 #ARGER
00003 0000
00004 0530 TEXT +EXP3 +
00005 2063
00006 4040
00007 1100 EXP3XR, SETX XREXP3
00010 0016
00011 1110 SETB BPEXP3
00012 0013
00013 0040 BPEXP3, FNOP
00014 0000 0
00015 0000 0
00016 0000 XREXP3, F 0.0
00017 0000
00020 0000
00021 0000 EXP31, F 0.0
00022 0000
00023 0000
00024 0000 EXP32, F 0.0
00025 0000
00026 0000
00027 0001 FP1XP3, F 1.
00030 2000
00031 0000
ORG 10*3+BPEXP3
00043 0040 FNOP
00044 1030 JA EXP3XR
00045 0007
00046 0000 0
00047 1030 XP3RTN, JA .
00050 0047
/
BASE 0
00051 0006 #EXP3, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA XP3RTN
00054 0047
00055 0200 FLDA 0
00056 1100 SETX XREXP3
00057 0016
00060 1110 SETB BPEXP3
00061 0013
BASE BPEXP3
00062 0101 LDX 1,1
00063 0001
00064 6200 FSTA BPEXP3
RALF V50A 8-APR-92 PAGE 1-1
00065 0610 FLDA% BPEXP3,1 /ADDR OF B
00066 6202 FSTA EXP31
00067 0710 FLDA% BPEXP3,1+ /ADDR OF E
00070 6203 FSTA EXP32
00071 0005 STARTF
00072 0602 FLDA% EXP31 /GET B
00073 1000 JEQ XP3RTN /0 ^ X = 0
00074 0047
00075 6202 FSTA EXP31 /SAVE BASE
00076 0603 FLDA% EXP32 /GET E
00077 1000 JEQ EXP3ON /X ^ 0 = 1
00100 0125
00101 6203 FSTA EXP32 /SAVE EXPONENT
00102 0202 FLDA EXP31
00103 1050 JLT EXP3ER /ALL IS NOT WELL
00104 0002
EXTERN ALOG
00105 1130 JSR ALOG /CALL LOG
00106 0000
00107 1030 JA .+4 /TAKE LOG (B)
00110 0113
00111 1030 JA EXP31
00112 0021
00113 4203 FMUL EXP32 /MULT BY EXPONENT-E
00114 6202 FSTA EXP31
EXTERN EXP
00115 1130 JSR EXP /CALL EXP.
00116 0000
00117 1030 JA .+4
00120 0123
00121 1030 JA EXP31
00122 0021
00123 1030 JA XP3RTN
00124 0047
/
00125 0204 EXP3ON, FLDA FP1XP3 /X^0 = 1
00126 1030 JA XP3RTN
00127 0047
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
14 SYMBOLS, NO ABS REFS
# C 00000 #ARGER X 00000 #EXP3 00051 #MAIN S 00000
ALOG X 00000 BPEXP3 00013 EXP X 00000 EXP3 S 00130
EXP3ER 00002 EXP3ON 00125 EXP3XR 00007 EXP31 00021
EXP32 00024 FP1XP3 00027 XP3RTN 00047 XREXP3 00016