<div id='wikitext'>
<pre><b> File: IFIX.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=AINT(R),I=INT(R),IFIX(R) REAL TO INTEGER FIX
            /
            /
            / VERSION 50A 22-MAY-80 WVDM
            /
            /
                    SECT    IFIX
                    ENTRY   AINT
                    ENTRY   INT
                    BASE    0
            AINT,
00000 0200  INT,    FLDA    0               /ADDRESS OF CALL
00001 0006          STARTD
00002 6400          FSTA    RETRN           /SAVE RERN
00003 0027  
00004 1400          FADD    TWO             /INCR BY TWO
00005 0031  
00006 6201          FSTA    3               /GIVES ADDRESS OF ARG POINTER
00007 0601          FLDA%   3               /GET ADDR OF ARG
00010 6201          FSTA    3
00011 0005          STARTF
00012 0601          FLDA%   3               /GET ARG
00013 1070          JAL     ERROR           /BIGGIES ARE NO GOOD
00014 0033  
00015 1050          JLT     NEGFIX          /NEGATIVE ARG
00016 0023  
00017 0010          ALN     0               /FIX POSITIVE ARG
00020 0004          FNORM
00021 1030          JA      RETRN           /RETURN
00022 0027  
00023 0003  NEGFIX, FNEG                    /FIRST MAKE POSITIVE
00024 0010          ALN     0               /THEN FIX
00025 0004          FNORM
00026 0003          FNEG                    /THEN RE-NEGATE
00027 1030  RETRN,  JA .
00030 0027  
00031 0000  TWO,    0;2
00032 0002  
                    EXTERN  #ARGER
00033 4000  ERROR,  TRAP4   #ARGER
00034 0000  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
8 SYMBOLS, NO ABS REFS 

 #      C 00000   #ARGER X 00000   #MAIN  S 00000   AINT     00000  
 ERROR    00033   IFIX   S 00035   INT      00000   NEGFIX   00023  
 RETRN    00027   TWO      00031  
</pre>
<hr/>
</div>