File: IAND.RA of Tape: Various/System-Tapes/system-1

(Source file text) 

---

/RALF SUBROUTINE COMPUTING THE LOGICAL
/.AND. OF TWO FORTRAN INTEGERS (<=2047)
/
	SECT8	IAND		/MODULE NAME
	INDEX	P17		/INDEX REGISTER
	BASE	0		/BASE PAGE #
	STARTD			/DOUBLE PRECISION MODE
	SETX	P17		/SET PTR TO ARGS
	FLDA%	0,XR1		/1ST ARG PTR
	FSTA	3		/STORED IN X3
	STARTF			/FLOATING POINT MODE
	FLDA%	3		/LOAD 1ST ARG IN FACC
	ATX	XR4		/FIX 1ST ARG IN XR4
	STARTD			/RESET DP MODE
	FLDA%	0,XR2		/2ND ARG POINTER
	FSTA	3		/STORED IN XR3
	STARTF			/RESET FP MODE
	FLDA%	3		/LOAD 2ND ARG IN FACC
	ATX	XR3		/FIX 2ND ARG IN XR3
	TRAP4	#AND		/CALL PAL SUBROUTINE
	STARTD			/RESET DP MODE
	FLDA%	0,XR5		/3RD ARG PTR
	FSTA	3		/STORED IN XR3
	STARTF			/RESET FP MODE
	XTA	XR3		/FLOAT RESULT
	FSTA%	3		/STORE RESULT IN 3RD ARG
	FLDA	30		/RETURN
	JAC			/..TO CALLING SEQUENCE
#AND,	0			/SUBROUTINE LINK
	CLA
	TAD	XR4		/XR3:=XR3.AND.XR4
	AND	XR3
	DCA	XR3
	CIF CDF
	JMP%	#AND		/RETURN
P17,	17
XR1,	1
XR2,	2
XR3,	0
XR4,	0
XR5,	3

---