software: Added more and more

[pdp8.git] / sw / f4 / FRTSRC / dmax1.ra

diff --git a/sw/f4/FRTSRC/dmax1.ra b/sw/f4/FRTSRC/dmax1.ra
new file mode 100644 (file)
index 0000000..db589ee
--- /dev/null
+++ b/sw/f4/FRTSRC/dmax1.ra
@@ -0,0 +1,42 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+       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
+\f