.TITLE	MEMBER		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<S>;<LIST>
; EXIT:		1 ARG		<LIST>
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
;		EQUAL
	.GLOBL	MEMBER,ZMEMBER,QCAR,QCDR,QEQUAL
MEMBER:	ROOM	4
	MOV	2(R5),-(R5)
	BEQ	MEM8	;JUMP IF NOT FOUND
MEM1:	QCAR
	MOV	2(R5),-(R5)
	QEQUAL
	TST	(R5)+
	BNE	MEM9	;JUMP IF FOUND
	MOV	2(R5),-(R5)
	QCDR
	MOV	@R5,4(R5)
	BNE	MEM1
MEM8:	CMP	(R5)+,(R5)+	;RETURN NIL
	JMP	@-(R4)
MEM9:	TST	(R5)+	;RETURN LIST WHOSE CAR IS <S>
	JMP	@-(R4)
ZMEMBER=.-MEMBER
	.END