.TITLE	REVIP		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LIST>
; EXIT:		1 ARG		<LIST>
; ERRORS:	NONE
; CALLS:	CDR
	.GLOBL	REVIP,ZREVIP,QCDR
REVIP:	CLR	R3	;PARTIALLY REVERSED LIST
REV1:	MOV	@R5,R2
	BEQ	REV2
	QCDR
	MOV	R3,2(R2)
	MOV	R2,R3
	BR	REV1
REV2:	MOV	R3,@R5
	JMP	@-(R4)
ZREVIP=.-REVIP
	.END