<div id='wikitext'>
<pre><b> File: DBLE.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=DBLE(E) - REAL TO DBL PREC. EXPANSION
            /
            /
            / VERSION 50A 24-MAY-80 WVDM
            /
            /
                    SECT    DBLE
                    BASE    0
                    DPCHK
00000 0200          FLDA    0
00001 0006          STARTD
00002 6400          FSTA    RETRN           /SAVE RETURN
00003 0023  
00004 1400          FADD    TWO             /ADDR OF ARG POINTER
00005 0025  
00006 6201          FSTA    3
00007 0601          FLDA%   3               /ADDR OF ARG
00010 6201          FSTA    3
00011 0005          STARTF
00012 0601          FLDA%   3               /GET ARG
00013 6400          FSTA    DTEMP
00014 0027  
00015 0002          FCLA
00016 6400          FSTA    DTEMP+3         /0 FOR LAST 3 WORDS
00017 0032  
00020 0050          STARTE
00021 0400          FLDA    DTEMP
00022 0027  
00023 0000  RETRN,  0;0                     /FLOAT IS A NOP
00024 0000  
00025 0000  TWO,    0;2
00026 0002  
00027 0000  DTEMP,  F 0.0
00030 0000  
00031 0000  
00032 0000          F 0.0
00033 0000  
00034 0000  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
4 SYMBOLS, NO ABS REFS 

 #      C 00000   #MAIN  S 00000   DBLE   S 00035   DTEMP    00027  
 RETRN    00023   TWO      00025  
</pre>
<hr/>
</div>