<div id='wikitext'>
<pre><b> File: EXPIR.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

            /R=R1**R2 INTERNAL FUNCTION
            /
            /
            / VERSION 50A 27-MAY-80 WVDM
            /
            /
                    SECT    #EXPIR
                    BASE    0
                    EXTERN  EXP3
00000 1030          JA      .
00001 0000  
00002 6400          FSTA    EXPON,0         /EXPONENT
00003 0024  
00004 0200          FLDA    0               /BASE CONTAINS BASE. NICE!
00005 6400          FSTA    BASE,0
00006 0021  
00007 1130          JSR     EXP3            /EXP3(BASE,EXPON)
00010 0000  
00011 1030          JA      .+6
00012 0017  
00013 1030          JA      BASE
00014 0021  
00015 1030          JA      EXPON
00016 0024  
00017 1030          JA      #EXPIR
00020 0000  
00021 0000  BASE,   F       0.0
00022 0000  
00023 0000  
00024 0000  EXPON,  F       0.0
00025 0000  
00026 0000  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
4 SYMBOLS, NO ABS REFS 

 #      C 00000   #EXPIR S 00027   #MAIN  S 00000   BASE     00021  
 EXPON    00024   EXP3   X 00000  
</pre>
<hr/>
</div>