File: DABS.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1 /D=DABS(D) DOUBLE PREC. ABSOLUTE VALUE / / / VERSION 50A 27-MAY-80 WVDM / / SECT DABS BASE 0 DPCHK 00000 0200 DPABS, FLDA 0 /GET RETURN ADDRESS 00001 0006 STARTD 00002 6400 FSTA RETRN 00003 0016 00004 1400 FADD TWO /GET ADDRESS OF ARG P7S 00005 0020 00006 6201 FSTA 3 00007 0601 FLDA% 3 00010 6201 FSTA 3 00011 0050 STARTE 00012 0601 FLDA% 3 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 DABS S 00022 DPABS 00000 RETRN 00016 TWO 00020