.TITLE	DEFINE		
; JEFFREY KODOSKY	ARL	NOV75
;
; SUBR
; ENTRY:	1 ARG		<LIST OF LENGTH 2 LISTS>
; EXIT:		1 ARG		<LAT>
; ERRORS:	NONE
; CALLS:	DEFLIST
	.GLOBL	DEFINE,ZDEFINE,QDEFLIST,EXPR
DEFINE:	MOV	@R5,-(R5)	;INSERT INDICATOR EXPR
	MOV	EXPR,2(R5)
	QDEFLIST	;CALL DEFLIST WITH NO RETURN PATH
	.WORD	0
ZDEFINE=.-DEFINE
	.END