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