File: ABS.LS of Disk: V50/Source/Source-Listing-RALF-1

(Source file text) 

---

RALF V50A    8-APR-92    PAGE 1

            /R=ABS(R) SINGLE PREC. ABSOLUTE VALUE
            /
            /
            / VERSION 50A 20-MAY-80 WVDM
            /
            /
                    SECT    IABS
                    ENTRY   ABS
                    BASE    0               /NO BASE,XR CHANGE
00000 0200  ABS,    FLDA    0               /GET RETURN ADDRESS
00001 0006          STARTD
00002 6400          FSTA    RETRN
00003 0016  
00004 1400          FADD    TWO             /GET ADDRESS OF ARG POINTER
00005 0020  
00006 6201          FSTA    3               /USE CALLER'S BASE PAGE VAR 1
00007 0601          FLDA%   3               /GET ARG ADDRESS
00010 6201          FSTA    3
00011 0005          STARTF
00012 0601          FLDA%   3               /GET ARG
00013 1010          JGE     RETRN           /POSITIVE, SKIP NEGATE
00014 0016  
00015 0003          FNEG
00016 0000  RETRN,  0;0
00017 0000  
00020 0000  TWO,    0;2
00021 0002  
RALF V50A    8-APR-92    PAGE 1-1

NO ERRORS 
4 SYMBOLS, NO ABS REFS 

 #      C 00000   #MAIN  S 00000   ABS      00000   IABS   S 00022  
 RETRN    00016   TWO      00020  

---