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

diff --git a/sw/os8/v3d/sources/fortran/all/ifix.ra b/sw/os8/v3d/sources/fortran/all/ifix.ra
new file mode 100644
index 0000000..f283f82
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/ifix.ra
@@ -0,0 +1,30 @@
+/
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	IFIX
+	ENTRY	AINT
+	ENTRY	INT
+	BASE	0
+AINT,
+INT,	FLDA	0		/ADDRESS OF CALL
+	STARTD
+	FSTA	RETRN		/SAVE RERN
+	FADD	TWO		/INCR BY TWO
+	FSTA	3		/GIVES ADDRESS OF ARG POINTER
+	FLDA%	3		/GET ADDR OF ARG
+	FSTA	3
+	STARTF
+	FLDA%	3		/GET ARG
+	JAL	RETRN	/LEAVE BIGGIES ALONE
+	JLT	NEGFIX		/NEGATIVE ARG
+	ALN	0		/FIX POSITIVE ARG
+	FNORM
+	JA	RETRN		/RETURN
+NEGFIX,	FNEG			/FIRST MAKE POSITIVE
+	ALN	0		/THEN FIX
+	FNORM
+	FNEG			/THEN RE-NEGATE
+RETRN,	JA .
+TWO,	0;2
+	END
+