Commit | Line | Data |
---|---|---|
7af5ad59 PH |
1 | / |
2 | / VERSION 5A 4/26/77 MH | |
3 | / | |
4 | SECT DMIN1 | |
5 | BASE 0 | |
6 | DPCHK | |
7 | DPMIN, SETX XR | |
8 | MINCOM, STARTD | |
9 | FLDA 0 /ADDRESS OF JA .+2+2*N | |
10 | FSTA 3 | |
11 | FLDA 30 /RETURN ADDRESS | |
12 | FSTA RETN | |
13 | FLDA% 3 / JA .+2+2*N | |
14 | FSUB 0 /-JA . | |
15 | FSUB TWO /- 2 | |
16 | LDX 1,1 | |
17 | ALN 1 /DIVIDE BY TWO | |
18 | FNEG /-N | |
19 | ATX 1 | |
20 | LDX 0,2 /FOR ARG PICKUP | |
21 | FLDA% 0,2+ /ADDRESS OF FIRST ARG | |
22 | FSTA 3 | |
23 | STARTE | |
24 | NEW, FLDA% 3 /SAVE NEW MIN | |
25 | FSTA MIN | |
26 | SAME, JXN MORMIN,1+ | |
27 | FLDA MIN | |
28 | RETN, JA . | |
29 | MORMIN, STARTD /NEXT ARG ADDRESS | |
30 | FLDA% 0,2+ | |
31 | FSTA 3 | |
32 | STARTE | |
33 | FLDA MIN /COMPARE | |
34 | FSUB% 3 | |
35 | JLE SAME /SAME MIN | |
36 | JA NEW /NEW MIN | |
37 | TWO, 0;2 | |
38 | MIN, 0;0;0 | |
39 | 0;0;0 | |
40 | XR, 0;0;0;0;0;0;0;0 | |
41 | END | |
42 | \f |