.TITLE	LOGXOR		
; JEFFREY KODOSKY	ARL	NOV75
;
; FSUBR
; ENTRY:	1 ARG		<LIST OF NUMS>
; EXIT:		1 ARG		<INT>
; ERRORS:	NONE
; CALLS:	EVLIS
;		ATM2N
;		I2ATM
;		CAR
;		CDR
;		RI
	.GLOBL	LOGXOR,ZLOGXOR,QEVLIS,QCAR,QCDR,QRI,QATM2N,QI2ATM
LOGXOR:	QEVLIS
	CLR	-(SP)	;WORK SPACE
LOG1:	MOV	@R5,R3
	BEQ	LOG2
	QCDR
	MOV	R3,-(R5)
	QCAR
	QATM2N
	BCC	.+4
	QRI
	MOV	(SP)+,R0
	MOV	R0,R1
	BIC	@SP,R1
	BIC	R0,@SP
	BIS	R1,@SP
	BR	LOG1
LOG2:	TST	(R5)+
	QI2ATM
	.WORD	0
ZLOGXOR=.-LOGXOR
	.END