X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Ff4%2FFRTSRC%2Fdmax1.ra;fp=sw%2Ff4%2FFRTSRC%2Fdmax1.ra;h=db589ee42456fede06a57c736321dbfb6411a194;hb=7af5ad59491ddf2066641aef1e0025a337c0f247;hp=0000000000000000000000000000000000000000;hpb=919757fd611e482003ce51f366f6783cab73dea3;p=pdp8.git

diff --git a/sw/f4/FRTSRC/dmax1.ra b/sw/f4/FRTSRC/dmax1.ra
new file mode 100644
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
+