.TITLE	TRSET		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LAT>
; EXIT:		1 ARG		SAME <LAT>
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
;		PUT
	.GLOBL	TRSET,ZTRSET,.T.,YTRSET,QCAR,QCDR,QPUT
TRSET:	ROOM	5
	MOV	@R5,-(R5)
TRS1:	MOV	@R5,R3
	BEQ	TRS3
	QCDR
	MOV	R3,-(R5)
	QCAR
	MOV	(R5)+,R3
	MOV	.T.,-(R5)	;FLAG
	MOV	YTRSET,-(R5)	;INDICATOR
	MOV	R3,-(R5)	;ATOM
	QPUT
	TST	(R5)+	;IGNORE PUT RESULT
	BR	TRS1
TRS3:	TST	(R5)+	;POP NIL
	JMP	@-(R4)	;RETURN ORIGINAL <LAT>
ZTRSET=.-TRSET
	.END