	.TITLE	IAND


;	* * * FORTRAN UTILITY MODULE * * *


;	FORTRAN LOGICAL AND FUNCTION

;		CALLING SEQUENCE:

;	IAND (IVAR1, IVAR2)

;		IVAR1 & IVAR2 ARE INTEGER*2 VALUES

;		AND IS RETURNED IN REGISTER 0.

;	ALL NEW CODE: 21 NOVEMBER 77

;	PROGRAMMER: KEN DINWIDDIE

	.MCALL	.REGDEF

	.REGDEF

	.GLOBL	IAND


IAND:	TST	(R5)+		; ADVANCE POINTER TO FIRST ARGUMENT
	MOV	@(R5)+,R0	; LOAD ARGUMENT 1 IN R0
	MOV	@(R5)+,R1	; LOAD ARGUMENT 2 IN R1
	COM	R1
	BIC	R1,R0		; LOGICAL AND INTO R0
	RTS	PC
	.END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               