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