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

diff --git a/sw/f4/FRTSRC/idint.ra b/sw/f4/FRTSRC/idint.ra
new file mode 100644
index 0000000..08d9b9c
--- /dev/null
+++ b/sw/f4/FRTSRC/idint.ra
@@ -0,0 +1,39 @@
+/ VERSION 5A 4-27-77  PT
+/
+	SECT	IDINT
+	JA	#DINT
+	DPCHK
+	TEXT	+DINT  +
+DINTXR,	SETX	XRDINT
+	SETB 	BPDINT
+BPDINT,	F 0.0
+	F 0.0
+XRDINT,	0;73;1
+	F 0.0
+	ORG	10*3+BPDINT
+	FNOP
+	JA	DINTXR
+	0
+#GOBAK,	JA	.
+	BASE	0
+#DINT,	STARTD
+	SETX	XRDINT
+	FLDA	10*3
+	FSTA	#GOBAK,0
+	FLDA%	0,2
+	SETB	BPDINT
+	BASE	BPDINT
+	FSTA	BPDINT
+	STARTE
+	FLDA%	BPDINT
+	JLT	NEGFIX		/NEGATIVE ARG
+	ALN	1		/FIX POSITIVE ARG
+	FNORM
+	JA	#GOBAK		/RETURN
+NEGFIX,	FNEG			/FIRST MAKE POSITIVE
+	ALN	1		/THEN FIX
+	FNORM
+	FNEG			/THEN RE-NEGATE
+	JA	#GOBAK
+	END
+