.TITLE	TRACE		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LAT>
; EXIT:		1 ARG		NIL
; ERRORS:	NONE
; CALLS:	PUT
;		CAR
;		CDR
;		I2ATM
	.GLOBL	TRACE,ZTRACE,QI2ATM,QPUT,YTRACE,QCAR,QCDR
TRACE:	ROOM	4
TRACE1:	MOV	@R5,R3	;GET <LAT>
	BEQ	TRACE3
	QCDR
	MOV	R3,-(R5)
	QCAR
	MOV	(R5)+,R3
	CLR	-(SP)	;MAKE A NUMERIC ATOM
	QI2ATM
	MOV	YTRACE,-(R5)	;INDICATOR
	MOV	R3,-(R5);ATOM
	QPUT
	TST	(R5)+	;POP RESULT OF PUT
	BR	TRACE1	;<LAT>:=CDR[<LAT>]
TRACE3:	JMP	@-(R4)
ZTRACE=.-TRACE
	.END