<div id='wikitext'>
<pre><b> File: EXPDR.LS of Disk: V50/Source/Source-Listing-RALF-1</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>

RALF V50A    8-APR-92    PAGE 1

            /INTERNAL FUNCTION EXPDR D=D**R (USES DEXP3)
            /
            /
            / VERSION 50A 28-MAY-80 WVDM
            /
            /
                    SECT    #EXPDR
                    DPCHK
                    BASE    0
                    EXTERN  DEXP3
00000 1030          JA      .
00001 0000  
00002 6400          FSTA    EXPON,0         /EXPONENT
00003 0033  
00004 0002          FCLA
00005 6400          FSTA    EXPON+3         /MUST BE 6 WDS
00006 0036  
00007 0050          STARTE
00010 0200          FLDA    0               /BASE
00011 6400          FSTA    BASE,0
00012 0025  
00013 1130          JSR     DEXP3           /EXP3(BASE,EXPON)
00014 0000  
00015 1030          JA      .+6
00016 0023  
00017 1030          JA      BASE
00020 0025  
00021 1030          JA      EXPON
00022 0033  
00023 1030          JA      #EXPDR
00024 0000  
00025 0000  BASE,   F       0.0
00026 0000  
00027 0000  
00030 0000          F 0.0
00031 0000  
00032 0000  
00033 0000  EXPON,  F       0.0
00034 0000  
00035 0000  
00036 0000          F 0.0
00037 0000  
00040 0000  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
4 SYMBOLS, NO ABS REFS 

 #      C 00000   #EXPDR S 00041   #MAIN  S 00000   BASE     00025  
 DEXP3  X 00000   EXPON    00033  
</pre>
<hr/>
</div>