.TITLE	PROP		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	3 ARGS		<LITATM1>;<LITATM2>;<FNEXP>
; EXIT:		1 ARG
; ERRORS:	NONE
; CALLS:	SPL, SEARCH PROPERTY LIST
;		APPLY
	.GLOBL	PROP,ZPROP,QSPL,QAPPLY
PROP:	QSPL
	BCS	PROP1	;JUMP IF <LITATM2> IS NOT ON PROP LIST
	MOV	(R5)+,@R5	;IGNORE <FNEXP> AND RETURN
	JMP	@-(R4)	;SPL RESULT
PROP1:	MOV	2(R5),@R5	;APPLY <FNEXP> TO NO ARGS
	CLR	2(R5)
	QAPPLY
	.WORD	0	;NO RETURN PATH
ZPROP=.-PROP
	.END