.TITLE	LOGAND		
; 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	LOGAND,ZLOGAND,QEVLIS,QCAR,QCDR,QRI,QATM2N,QI2ATM
LOGAND:	QEVLIS
	MOV	#-1,-(SP)	;WORK SPACE
LOG1:	MOV	@R5,R3
	BEQ	LOG2
	QCDR
	MOV	R3,-(R5)
	QCAR
	QATM2N
	BCC	.+4
	QRI
	COM	@SP
	BIC	(SP)+,@SP
	BR	LOG1
LOG2:	TST	(R5)+
	QI2ATM
	.WORD	0
ZLOGAND=.-LOGAND
	.END