.TITLE	REMOB		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LITATM>
; EXIT:		1 ARG		NIL
; ERRORS:	NONE
; CALLS:	ATMOBL
	.GLOBL	REMOB,ZREMOB,QATMOBL,APOINT,APTEND
REMOB:	QATMOBL		;(IF IT WASN'T ON OBLIST BEFORE IT IS NOW!)
	ROR	R1	;SAVE POINTER AND C BIT
	MOV	@R5,R0
	CLR	@R5	;ALWAYS RETURN NIL
	MOV	#APOINT,R2
REMOB1:	CMP	(R2)+,R0
	BEQ	REMOB3	;DON'T REMOVE SYSTEM ATOMS
	CMP	R2,#APTEND
	BLO	REMOB1
	ASL	R1	;PATCH AROUND OBLIST ENTRY
	BCS	REMOB2
	MOV	2(R1),R2;CDR[R1]<---CDDR[R1]
	MOV	2(R2),2(R1)
	JMP	@-(R4)
REMOB2:	MOV	@R1,R2	;CAR[R1]<---CDAR[R1]
	MOV	2(R2),@R1
REMOB3:	JMP	@-(R4)
ZREMOB=.-REMOB
	.END