.TITLE	OR		
; JEFFREY KODOSKY	ARL	NOV75
;
; FSUBR
; ENTRY:	1 ARG
; EXIT:		1 ARG		<BOOL>
; ERRORS:	NONE
; CALLS:	CAR
;		CDR
;		EVAL
	.GLOBL	OR,ZOR,QEVAL,QCAR,QCDR,$ALIST,.T.
OR:	MOV	@R5,-(R5)
	MOV	$ALIST,2(R5)
	ROOM	2
OR1:	MOV	@R5,R3
	BEQ	OR5	;NULL[<ARG>]--->F
	QCDR
	MOV	R3,-(R5)
	QCAR
	QEVAL		;EVAL[CAR[<ARG>]]--->T
	MOV	4(R5),$ALIST
	TST	(R5)+
	BEQ	OR1	;T--->OR[CDR[<ARG>]]
	TST	(R5)+
	MOV	.T.,@R5
	JMP	@-(R4)
OR5:	TST	(R5)+
	CLR	@R5
	JMP	@-(R4)
ZOR=.-OR
	.END