.TITLE	UNTRACE		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LAT>
; EXIT:		1 ARG		NIL
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
;		REMPROP
	.GLOBL	UNTRACE,ZUNTRACE,QCAR,QCDR,YTRACE,QREMPROP
UNTRACE:MOV	@R5,R3	;GET <LAT>
	BEQ	UNTR9
	QCDR
	MOV	R3,-(R5)
	QCAR
	MOV	@R5,-(R5)	;GET NEXT ATOM
	MOV	YTRACE,2(R5)
	QREMPROP
	TST	(R5)+
	BR	UNTRACE
UNTR9:	JMP	@-(R4)
ZUNTRACE=.-UNTRACE
	.END