.TITLE	REVERSE		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LIST>
; EXIT:		1 ARG		<LIST>
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
;		CONS
	.GLOBL	REVERSE,ZREVERSE,QCAR,QCDR,QCONS
REVERSE:	ROOM	3
	CLR	-(R5)	;RESULT
REV1:	MOV	2(R5),R3
	BEQ	REV5
	MOV	R3,-(R5)
	QCDR
	MOV	(R5)+,2(R5)	;SAVE CDR OF LIST
	MOV	R3,-(R5)
	QCAR
	QCONS
	BR	REV1
REV5:	MOV	(R5)+,@R5
	JMP	@-(R4)
ZREVERSE=.-REVERSE
	.END