.TITLE	MEMQ		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<S>;<LIST>
; EXIT:		1 ARG		<LIST>
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
	.GLOBL	MEMQ,ZMEMQ,QCAR,QCDR
MEMQ:	MOV	(R5)+,R3
MEMQ1:	MOV	@R5,R2
	BEQ	MEMQ5	;NULL[<LIST>]---->
	QCAR		;NIL
	CMP	@R5,R3	;EQ[CAR[<LIST>];<S>]---->
	BEQ	MEMQ5	;<LIST>
	MOV	R2,@R5
	QCDR		;T---->MEMQ[<S>;CDR[<LIST>]]
	BR	MEMQ1
MEMQ5:	MOV	R2,@R5
	JMP	@-(R4)
ZMEMQ=.-MEMQ
	.END