<div id='wikitext'>
<pre><b> File: FLOAT.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=FLOAT(I) INTEGER TO REAL CONVERSION
            /
            /
            / VERSION 50A 23-MAY-80 WVDM
            /
            /
                    SECT    FLOAT
                    BASE    0
00000 0200          FLDA    0
00001 0006          STARTD
00002 6400          FSTA    RETRN           /SAVE RETURN
00003 0013  
00004 1400          FADD    TWO             /ADDR OF ARG POINTER
00005 0015  
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 0000  RETRN,  0;0                     /FLOAT IS A NOP
00014 0000  
00015 0000  TWO,    0;2
00016 0002  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
3 SYMBOLS, NO ABS REFS 

 #      C 00000   #MAIN  S 00000   FLOAT  S 00017   RETRN    00013  
 TWO      00015  
</pre>
<hr/>
</div>