File: DMIN1.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/D=DMIN1(D1,...) DOUBLE PREC. MIN. VALUE
/
/
/ VERSION 50A 27-MAY-80 WVDM
/
/
SECT DMIN1
BASE 0
DPCHK
00000 1100 DPMIN, SETX XR
00001 0062
00002 0006 MINCOM, STARTD
00003 0200 FLDA 0 /ADDRESS OF JA .+2+2*N
00004 6201 FSTA 3
00005 0210 FLDA 30 /RETURN ADDRESS
00006 6400 FSTA RETN
00007 0035
00010 0601 FLDA% 3 / JA .+2+2*N
00011 2200 FSUB 0 /-JA .
00012 2400 FSUB TWO /- 2
00013 0052
00014 0101 LDX 1,1
00015 0001
00016 0011 ALN 1 /DIVIDE BY TWO
00017 0003 FNEG /-N
00020 0021 ATX 1
00021 0102 LDX 0,2 /FOR ARG PICKUP
00022 0000
00023 0720 FLDA% 0,2+ /ADDRESS OF FIRST ARG
00024 6201 FSTA 3
00025 0050 STARTE
00026 0601 NEW, FLDA% 3 /SAVE NEW MIN
00027 6400 FSTA MIN
00030 0054
00031 2110 SAME, JXN MORMIN,1+
00032 0037
00033 0400 FLDA MIN
00034 0054
00035 1030 RETN, JA .
00036 0035
/
00037 0006 MORMIN, STARTD /NEXT ARG ADDRESS
00040 0720 FLDA% 0,2+
00041 6201 FSTA 3
00042 0050 STARTE
00043 0400 FLDA MIN /COMPARE
00044 0054
00045 2601 FSUB% 3
00046 1020 JLE SAME /SAME MIN
00047 0031
00050 1030 JA NEW /NEW MIN
00051 0026
00052 0000 TWO, 0;2
00053 0002
00054 0000 MIN, 0;0;0
00055 0000
RALF V50A 8-APR-92 PAGE 1-1
00056 0000
00057 0000 0;0;0
00060 0000
00061 0000
00062 0000 XR, 0;0;0;0;0;0;0;0
00063 0000
00064 0000
00065 0000
00066 0000
00067 0000
00070 0000
00071 0000
RALF V50A 8-APR-92 PAGE 1-2
NO ERRORS
10 SYMBOLS, NO ABS REFS
# C 00000 #MAIN S 00000 DMIN1 S 00072 DPMIN 00000
MIN 00054 MINCOM 00002 MORMIN 00037 NEW 00026
RETN 00035 SAME 00031 TWO 00052 XR 00062