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

diff --git a/sw/f4/FRTSRC/dsign.ra b/sw/f4/FRTSRC/dsign.ra
new file mode 100644
index 0000000..a84de31
--- /dev/null
+++ b/sw/f4/FRTSRC/dsign.ra
@@ -0,0 +1,39 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	DSIGN
+	JA	#ST
+#XR,	ORG	.+10
+	TEXT	'DSIGN '
+#BASE,	ORG	.+6
+A,	ORG	.+6
+B,	ORG	.+6
+	ORG	#BASE+31
+	JA	#BASE
+GOBACK,	0;0;0
+	BASE	#BASE
+	DPCHK
+#ST,	STARTD
+	0210			/FLDA 10
+	FSTA	GOBACK+1,0
+	0200
+	SETX	#XR
+	SETB	#BASE
+	LDX	0,1
+	FSTA	#BASE
+	FLDA%	#BASE,1+
+	FSTA	A
+	FLDA%	#BASE,1+
+	FSTA	B
+	STARTE
+	FLDA%	B		/NEG?
+	JLT	#50		/B POS
+	FLDA%	A
+	JLT	#100
+	JA	GOBACK+1	/A+,B+
+#50,	FLDA%	A
+	JLT	GOBACK+1	/A-,B-
+#100,	FNEG			/OPP. SIGNS
+	JA	GOBACK+1
+	END
+