X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;ds=sidebyside;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fdim.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fdim.ra;h=88cf1c38ac1394f3648be20ce6127d8fdafa62b4;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/os8/v3d/sources/fortran/all/dim.ra b/sw/os8/v3d/sources/fortran/all/dim.ra
new file mode 100644
index 0000000..88cf1c3
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/dim.ra
@@ -0,0 +1,32 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	DIM
+	ENTRY	IDIM
+	JA	#ST
+#XR,	ORG	.+10
+#BASE,	ORG	.+3
+A,	ORG	.+3
+B,	ORG	.+3
+	BASE	#BASE
+IDIM,
+#ST,	STARTD
+	0210
+	FSTA	#RTN,0
+	0200
+	SETX	#XR
+	SETB	#BASE
+	LDX	0,1
+	FSTA	#BASE
+	FLDA%	#BASE,1+
+	FSTA	A
+	FLDA%	#BASE,1+
+	FSTA	B
+	STARTF
+	FLDA%	A
+	FSUB%	B
+	JGE	#RTN
+	FCLA
+#RTN,	JA	.
+	END
+