File: DMAX1.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/D=DMAX1(D1,...) DOUBLE PREC. MAX. VALUE / / / VERSION 40A 27-MAY-80 WVDM / / SECT DMAX1 BASE 0 DPCHK DPMAX, SETX XR MAXCOM, STARTD FLDA 0 /ADDRESS OF JA .+2+2*N FSTA 3 FLDA 30 /RETURN ADDRESS FSTA RETN FLDA% 3 / JA .+2+2*N FSUB 0 /-JA . FSUB TWO /- 2 LDX 1,1 ALN 1 /DIVIDE BY TWO FNEG /-N ATX 1 LDX 0,2 /FOR ARG PICKUP FLDA% 0,2+ /ADDRESS OF FIRST ARG FSTA 3 STARTE NEW, FLDA% 3 /SAVE NEW MAX FSTA MAX SAME, JXN MORMAX,1+ /ANY MORE ARGS ? FLDA MAX /GET RESULT RETN, JA . / MORMAX, STARTD /NEXT ARG ADDRESS FLDA% 0,2+ FSTA 3 STARTE FLDA MAX /COMPARE FSUB% 3 JGE SAME /SAME MAX JA NEW /NEW MAX TWO, 0;2 MAX, 0;0;0 0;0;0 XR, 0;0;0;0;0;0;0;0 END