.TITLE	UNDEF		
; JEFFREY KODOSKY	ARL	JUL76
;
; FSUBR
; ENTRY:	1 ARG
; EXIT:		1 ARG		<BOOL>
; ERRORS:	NONE
; CALLS:	GET
;		SASSOC
;		CAR
	.GLOBL	UNDEF,ZUNDEF,APVAL,QGET,$ALIST,QSASSOC,.T.,QCAR
UNDEF:	QCAR		;GET ATOM
	MOV	@R5,R0
	BIT	#2,(R0)+;NUMBERS AND STRINGS ARE DEFINED!
	BNE	UNDEF5
	BIT	#2,@R0
	BNE	UNDEF5
	ROOM	3
	MOV	APVAL,-(R5)	;CHECK FOR APVAL FIRST
	MOV	2(R5),-(R5)
	QGET
	TST	(R5)+
	BNE	UNDEF5	;JUMP IF IT HAS AN APVAL
	MOV	@R5,R2
	CLR	@R5	;ELSE CHECK ALIST BINDING
	MOV	$ALIST,-(R5)
	MOV	R2,-(R5)
	QSASSOC
	TST	@R5
	BNE	UNDEF5	;JUMP IF IT HAS AN ALIST BINDING
	MOV	.T.,@R5	;ELSE UNDEFINED: RETURN TRUE
	JMP	@-(R4)
UNDEF5:	CLR	@R5
	JMP	@-(R4)
ZUNDEF=.-UNDEF
	.END