File: IDINT.RA of Tape: Sources/Fortran/os8-f4-3

(Source file text) 

---

/I=IDINT(D) TRUNCATE DOUBLE PREC. TO INTEGER
/
/
/ VERSION 40A 23-MAY-80 WVDM
/
/
	SECT	IDINT
	JA	#IDINT
	DPCHK
	TEXT	+IDINT +
DINTXR,	SETX	XRDINT
	SETB 	BPDINT
BPDINT,	F 0.0
	F 0.0
XRDINT,	F 0.0
	F 0.0
	ORG	10*3+BPDINT
	FNOP
	JA	DINTXR
	0
#GOBAK,	JA	.
	BASE	0
#IDINT,	STARTD
	SETX	XRDINT
	FLDA	10*3
	FSTA	#GOBAK,0
	LDX	1,1
	FLDA%	0,1
	SETB	BPDINT
	BASE	BPDINT
	FSTA	BPDINT
	LDX	73,2		/SET SHIFT COUNT
	STARTE
	FLDA%	BPDINT
	JGE	DINTPO
	LDX	0,1		/REMEMBER SIGN
	FNEG			/NEGATIVE ARG
DINTPO,	JAL	#DINTR		/TOO BIG
	ALN	2		/FIX POSITIVE ARG
	JXN	DINTNN,1	/WAS NEG ?
	FNEG
DINTNN,	FNORM
	FSTA	BPDINT
	STARTF			/STARTF ROUNDS
	FLDA	BPDINT
	JA	#GOBAK		/RETURN

	EXTERN	#ARGER
#DINTR,	TRAP4	#ARGER
	END

---