.TITLE	APPEND		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<LIST>;<S>
; EXIT:		1 ARG		<S>
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
;		GETC
	.GLOBL	APPEND,ZAPPEND,QCAR,QCDR,QGETC
APPEND:	ROOM	3
	MOV	(R5)+,R3;COPY TOP LEVEL OF LIST
	BEQ	APND09	;NULL[<LIST>]---> <S>
	QGETC
	MOV	@R5,R2
APND03:	MOV	R3,-(R5)
	QCDR
	MOV	R3,-(R5)
	QCAR
	MOV	(R5)+,(R2)+
	MOV	(R5)+,R3
	BEQ	APND06
	QGETC
	MOV	(R5)+,@R2
	MOV	@R2,R2
	BR	APND03
APND06:	MOV	2(R5),@R2
	MOV	(R5)+,@R5
APND09:	JMP	@-(R4)
ZAPPEND=.-APPEND
	.END