File: AMAX.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1 /R=AMAX0(I,...),AMAX1(R,...) SINGLE PREC. MAX. VALUE /I= MAX0(I,...) MAX1(R,...) / / / VERSION 50A 22-MAY-80 WVDM / / SECT AMAX0 ENTRY AMAX1 ENTRY MAX0 ENTRY MAX1 BASE 0 00000 1100 AMAX1, SETX XR 00001 0103 00002 0103 LDX 1,3 /DON'T INTEGERIZE RESULT 00003 0001 00004 0006 MAXCOM, STARTD 00005 0200 FLDA 0 /ADDRESS OF JA .+2+2*N 00006 6201 FSTA 3 00007 0210 FLDA 30 /RETURN ADDRESS 00010 6400 FSTA RETN 00011 0053 00012 0601 FLDA% 3 / JA .+2+2*N 00013 2200 FSUB 0 /-JA . 00014 2400 FSUB TWO /- 2 00015 0070 00016 0101 LDX 1,1 00017 0001 00020 0011 ALN 1 /DIVIDE BY TWO 00021 0003 FNEG /-N 00022 0021 ATX 1 00023 0102 LDX 0,2 /FOR ARG PICKUP 00024 0000 00025 0720 FLDA% 0,2+ /ADDRESS OF FIRST ARG 00026 6201 FSTA 3 00027 0005 STARTF 00030 0601 NEW, FLDA% 3 /SAVE NEW MAX 00031 6400 FSTA MAX 00032 0072 00033 2110 SAME, JXN MORMAX,1+ /ANY MORE ARGS ? 00034 0055 00035 0400 FLDA MAX /GET RESULT 00036 0072 00037 2030 JXN RETN,3 /DON'T FIX 00040 0053 00041 1050 JLT NEGFIX /NEGATIVE FIX 00042 0047 00043 0010 ALN 0 00044 0004 FNORM 00045 1030 JA RETN 00046 0053 00047 0003 NEGFIX, FNEG 00050 0010 ALN 0 00051 0004 FNORM 00052 0003 FNEG 00053 1030 RETN, JA . RALF V50A 8-APR-92 PAGE 1-1 00054 0053 00055 0006 MORMAX, STARTD /NEXT ARG ADDRESS 00056 0720 FLDA% 0,2+ 00057 6201 FSTA 3 00060 0005 STARTF 00061 0400 FLDA MAX /COMPARE 00062 0072 00063 2601 FSUB% 3 00064 1010 JGE SAME /SAME MAX 00065 0033 00066 1030 JA NEW /NEW MAX 00067 0030 00070 0000 TWO, 0;2 00071 0002 00072 0000 MAX, 0;0;0 00073 0000 00074 0000 MAX0, 00075 1100 MAX1, SETX XR 00076 0103 00077 0103 LDX 0,3 /INTEGERIZE RESULT 00100 0000 00101 1030 JA MAXCOM /GO DO IT 00102 0004 00103 0000 XR, 0;0;0;0;0;0;0;0 00104 0000 00105 0000 00106 0000 00107 0000 00110 0000 00111 0000 00112 0000 RALF V50A 8-APR-92 PAGE 1-2 NO ERRORS 13 SYMBOLS, NO ABS REFS # C 00000 #MAIN S 00000 AMAX0 S 00113 AMAX1 00000 MAX 00072 MAXCOM 00004 MAX0 00075 MAX1 00075 MORMAX 00055 NEGFIX 00047 NEW 00030 RETN 00053 SAME 00033 TWO 00070 XR 00103