X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fdectapes%2Fdectape2%2Fexpid.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fdectapes%2Fdectape2%2Fexpid.ra;h=e37ee9e4b9bb6e2fd1a2a9db45d9901994f369c4;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/os8/v3d/sources/fortran/dectapes/dectape2/expid.ra b/sw/os8/v3d/sources/fortran/dectapes/dectape2/expid.ra
new file mode 100644
index 0000000..e37ee9e
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/dectapes/dectape2/expid.ra
@@ -0,0 +1,22 @@
+/
+/ VERSION 5A 4-26-77 MH
+/
+	SECT	#EXPID
+	DPCHK
+	BASE	0
+	EXTERN	EXPID2
+EXPID,	JA	.
+	FSTA	EXPON,0		/EXPONENT
+	STARTF
+	FLDA	0		/BASE
+	FSTA	BASE,0
+	JSR	EXPID2
+	JA	.+6
+	JA	BASE
+	JA	EXPON
+	JA	EXPID
+BASE,	F	0.0
+EXPON,	F	0.0
+	F 0.0
+	END
+