File: EXPID2.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/INTERNAL ROUTINE D=EXPID2(I,D) (USED BY EXPID D=I**D)
/
/
/ VERSION 50A 28-MAY-80 WVDM
/
/
SECT EXPID2
00000 1030 JA #EXID2
00001 0051
EXTERN #ARGER
00002 4000 EXP3ER, TRAP4 #ARGER
00003 0000
00004 0530 TEXT +EXPID2+
00005 2011
00006 0462
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 F 0.0
00025 0000
00026 0000
00027 0000 EXP32, F 0.0
00030 0000
00031 0000
00032 0001 FP1XP3, F 1.
00033 2000
00034 0000
00035 0000 F 0.0
00036 0000
00037 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 #EXID2, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA XP3RTN
00054 0047
00055 0200 FLDA 0
00056 1100 SETX XREXP3
00057 0016
RALF V50A 8-APR-92 PAGE 1-1
00060 1110 SETB BPEXP3
00061 0013
BASE BPEXP3
00062 0101 LDX 1,1
00063 0001
00064 6200 FSTA BPEXP3
00065 0610 FLDA% BPEXP3,1 /ADDR OF B
00066 6202 FSTA EXP31
00067 0710 FLDA% BPEXP3,1+ /ADDR OF E
00070 6204 FSTA EXP32
00071 0005 STARTF
00072 0602 FLDA% EXP31 /GET B
00073 1000 JEQ XP3RTN /0 ^ X = 0
00074 0047
00075 1050 JLT EXP3ER
00076 0002
00077 6202 FSTA EXP31 /SAVE BASE
00100 0002 FCLA
00101 6203 FSTA EXP31+3
00102 0050 STARTE
00103 0101 LDX 73,1
00104 0073
EXTERN DLOG
00105 1130 JSR DLOG /CALL LOG
00106 0000
00107 1030 JA .+4 /TAKE LOG (B)
00110 0113
00111 1030 JA EXP31
00112 0021
00113 6202 FSTA EXP31
00114 0604 FLDA% EXP32 /GET EXPONENT
00115 1000 JEQ EXP3ON /X^0=1
00116 0131
00117 4202 FMUL EXP31
00120 6202 FSTA EXP31
EXTERN DEXP
00121 1130 JSR DEXP /CALL EXP.
00122 0000
00123 1030 JA .+4
00124 0127
00125 1030 JA EXP31
00126 0021
00127 1030 JA XP3RTN
00130 0047
/
00131 0050 EXP3ON, STARTE
00132 0205 FLDA FP1XP3
00133 1030 JA XP3RTN
00134 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 #EXID2 00051 #MAIN S 00000
BPEXP3 00013 DEXP X 00000 DLOG X 00000 EXPID2 S 00135
EXP3ER 00002 EXP3ON 00131 EXP3XR 00007 EXP31 00021
EXP32 00027 FP1XP3 00032 XP3RTN 00047 XREXP3 00016