<div id='wikitext'>
<pre><b> File: DIM.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=DIM(R1,R2) SINGLE PREC. POS. REAL DIFFERENCE
            /
            /
            / VERSION 50A 23-MAY-80 WVDM
            /
            /IF R1.GT.R2 R=R1-R2; IF R1.LE.R2 R=0.0
            /
                    SECT    DIM
                    ENTRY   IDIM
00000 1030          JA      #ST
00001 0023  
            #XR,    ORG     .+10
            #BASE,  ORG     .+3
            A,      ORG     .+3
            B,      ORG     .+3
                    BASE    #BASE
            IDIM,
00023 0006  #ST,    STARTD
00024 0210          0210
00025 6400          FSTA    #RTN,0
00026 0051  
00027 0200          0200
00030 1100          SETX    #XR
00031 0002  
00032 1110          SETB    #BASE
00033 0012  
00034 0101          LDX     0,1
00035 0000  
00036 6200          FSTA    #BASE
00037 0710          FLDA%   #BASE,1+
00040 6201          FSTA    A
00041 0710          FLDA%   #BASE,1+
00042 6202          FSTA    B
00043 0005          STARTF
00044 0601          FLDA%   A
00045 2602          FSUB%   B
00046 1010          JGE     #RTN
00047 0051  
00050 0002          FCLA
00051 1030  #RTN,   JA      .
00052 0051  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
8 SYMBOLS, NO ABS REFS 

 #      C 00000   #BASE    00012   #MAIN  S 00000   #RTN     00051  
 #ST      00023   #XR      00002   A        00015   B        00020  
 DIM    S 00053   IDIM     00023  
</pre>
<hr/>
</div>