File: AMIN.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=AMIN0(I,...),AMIN1(R,...) SINGLE PREC. MIN. VALUE
/I= MIN0(I,...) MIN1(R,...)
/
/
/ VERSION 50A 22-MAY-80 WVDM
/
/
SECT AMIN0
ENTRY AMIN1
ENTRY MIN0
ENTRY MIN1
BASE 0
00000 1100 AMIN1, SETX XR
00001 0103
00002 0103 LDX 1,3 /DON'T INTEGERIZE RESULT
00003 0001
00004 0006 MINCOM, 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 MIN
00031 6400 FSTA MIN
00032 0072
00033 2110 SAME, JXN MORMIN,1+ /ANY MORE ARGS ?
00034 0055
00035 0400 FLDA MIN /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 MORMIN, STARTD /NEXT ARG ADDRESS
00056 0720 FLDA% 0,2+
00057 6201 FSTA 3
00060 0005 STARTF
00061 0400 FLDA MIN /COMPARE
00062 0072
00063 2601 FSUB% 3
00064 1020 JLE SAME /SAME MIN
00065 0033
00066 1030 JA NEW /NEW MIN
00067 0030
00070 0000 TWO, 0;2
00071 0002
00072 0000 MIN, 0;0;0
00073 0000
00074 0000
MIN0,
00075 1100 MIN1, SETX XR
00076 0103
00077 0103 LDX 0,3 /INTEGERIZE RESULT
00100 0000
00101 1030 JA MINCOM /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 AMIN0 S 00113 AMIN1 00000
MIN 00072 MINCOM 00004 MIN0 00075 MIN1 00075
MORMIN 00055 NEGFIX 00047 NEW 00030 RETN 00053
SAME 00033 TWO 00070 XR 00103