.TITLE	CONC		
; JEFFREY KODOSKY	ARL	NOV75
;
; FSUBR
; ENTRY:	1 ARG
; EXIT:		1 ARG
; ERRORS:	NONE
; CALLS:	EVLIS
;		CAR
;		CDR
;		NCONC
	.GLOBL	CONC,ZCONC,QCAR,QCDR,QEVLIS,QNCONC
CONC:	QEVLIS
	ROOM	5
	MOV	@R5,-(R5)
	BEQ	CONC5
	QCAR
	MOV	(R5)+,R3
	QCDR
	MOV	@R5,R2	;CDR[<ARG>]
	BEQ	CONC7
CONC2:	QCDR		;CDDR[<ARG>]
	MOV	R2,-(R5)
	QCAR		;CADR[<ARG>]
	MOV	R3,-(R5);CAR[<ARG>]
	QNCONC		;NCONC[CAR[<ARG>];CADR[<ARG>]]
	MOV	(R5)+,R3
	MOV	@R5,R2
	BEQ	CONC7
	BR	CONC2
CONC5:	TST	(R5)+
	JMP	@-(R4)
CONC7:	MOV	R3,@R5
	JMP	@-(R4)
ZCONC=.-CONC
	.END