<div id='wikitext'>
<pre><b> File: EXPID.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

            /D=I**D INTERNAL EXPONENTIATION FUNCTION (USES EXPID2)
            /
            /
            / VERSION 50A 28-MAY-80 WVDM
            /
            /
                    SECT    #EXPID
                    DPCHK
                    BASE    0
                    EXTERN  EXPID2
00000 1030  EXPID,  JA      .
00001 0000  
00002 6400          FSTA    EXPON,0         /EXPONENT
00003 0025  
00004 0005          STARTF
00005 0200          FLDA    0               /BASE
00006 6400          FSTA    BASE,0
00007 0022  
00010 1130          JSR     EXPID2
00011 0000  
00012 1030          JA      .+6
00013 0020  
00014 1030          JA      BASE
00015 0022  
00016 1030          JA      EXPON
00017 0025  
00020 1030          JA      EXPID
00021 0000  
00022 0000  BASE,   F       0.0
00023 0000  
00024 0000  
00025 0000  EXPON,  F       0.0
00026 0000  
00027 0000  
00030 0000          F 0.0
00031 0000  
00032 0000  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
5 SYMBOLS, NO ABS REFS 

 #      C 00000   #EXPID S 00033   #MAIN  S 00000   BASE     00022  
 EXPID    00000   EXPID2 X 00000   EXPON    00025  
</pre>
<hr/>
</div>