.TITLE	AND		
; JEFFREY KODOSKY	ARL	NOV75
;
; FSUBR
; ENTRY:	1 ARG
; EXIT:		1 ARG		<BOOL>
; ERRORS:	NONE
; CALLS:	EVAL
;		CAR
;		CDR
	.GLOBL	AND,ZAND,$ALIST,QCAR,QCDR,QEVAL,.T.
AND:	MOV	@R5,-(R5)
	MOV	$ALIST,2(R5)
	ROOM	2
AND1:	MOV	@R5,R3
	BEQ	AND5	;NULL[<ARG>]--->T
	QCDR
	MOV	R3,-(R5)
	QCAR
	QEVAL		;EVAL[CAR[<ARG>]]--->
	MOV	4(R5),$ALIST
	TST	(R5)+
	BNE	AND1	;AND[CDR[<ARG>]]
	TST	(R5)+	;T--->F
	CLR	@R5
	JMP	@-(R4)
AND5:	TST	(R5)+
	MOV	.T.,@R5
	JMP	@-(R4)
ZAND=.-AND
	.END