.TITLE	REMPROP		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	2 ARGS		<LITATM1>;<LITATM2>
; EXIT:		1 ARG		BOOL
; ERRORS:	NONE
; CALLS:	SPL
;		CDR
	.GLOBL	REMPROP,ZREMPROP,QSPL,QCDR,.T.
REMPROP:QSPL
	BCS	REMP9	;JUMP IF NOT ON PROP LIST
	TST	(R0)+
	MOV	R0,R3
	QCDR
	QCDR
	BIC	#177774,@R3
	BIS	@R5,@R3	;PATCH AROUND PROP LIST ITEM
	MOV	.T.,@R5	;RETURN *T* SINCE INDICATOR WAS FOUND
REMP9:	JMP	@-(R4)
ZREMPROP=.-REMPROP
	.END