.TITLE	NCONC		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<LIST>;<SEXPR>
; EXIT:		1 ARG		<LIST-SEXPR>
; ERRORS:	NONE
; CALLS:	CDR
; R3 PRESERVED
	.GLOBL	NCONC,ZNCONC,QCDR
NCONC:	ROOM	3
	MOV	@R5,-(R5)	;COPY LIST
	BEQ	NCONC4	;RETURN ARG2 IF LIST IS NOL
NCONC1:	MOV	@R5,-(R5)
	QCDR		;GET NEXT CDR
	MOV	(R5)+,R0
	BEQ	NCONC2	;JUMP IF NEXT CDR IS NIL
	MOV	R0,@R5	;LOOP BACK IF NOT
	BR	NCONC1
NCONC2:	MOV	(R5)+,R0
	MOV	2(R5),2(R0)	;REPLACE CDR POINTER
	MOV	(R5)+,@R5
	JMP	@-(R4)
NCONC4:	CMP	(R5)+,(R5)+
	JMP	@-(R4)
ZNCONC=.-NCONC
	.END