.TITLE	UNTRSET		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LAT>
; EXIT:		1 ARG		SAME <LAT>
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
;		REMPROP
	.GLOBL	UNTRSET,ZUNTRSET,YTRSET,QCAR,QCDR,QREMPROP
UNTRSET:MOV	@R5,-(R5)	;COPY LAT
UNTRS1:	MOV	@R5,R3
	BEQ	UNTRS9
	QCDR
	MOV	R3,-(R5)
	QCAR
	MOV	@R5,-(R5)
	MOV	YTRSET,2(R5)
	QREMPROP
	TST	(R5)+
	BR	UNTRS1
UNTRS9:	TST	(R5)+	;POP NIL
	JMP	@-(R4)
ZUNTRSET=.-UNTRSET
	.END