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

diff --git a/sw/f4/FRTSRC/expdd.ra b/sw/f4/FRTSRC/expdd.ra
new file mode 100644
index 0000000..bdf0e51
--- /dev/null
+++ b/sw/f4/FRTSRC/expdd.ra
@@ -0,0 +1,22 @@
+/
+/ VERSION 5A 4-25-77 MH
+/
+	SECT	#EXPDD
+	DPCHK
+	BASE	0
+	EXTERN	DEXP3
+	JA	.
+	FSTA	EXPON,0		/EXPONENT
+	FLDA	0		/BASE
+	FSTA	BASE,0
+	JSR	DEXP3		/EXP3(BASE,EXPON)
+	JA	.+6
+	JA	BASE
+	JA	EXPON
+	JA	#EXPDD
+BASE,	F	0.0
+	F 0.0
+EXPON,	F	0.0
+	F 0.0
+	END
+