.title	LOOKUP	Program that tests for the existance of a file

	.list meb
	$rmsdef
namblk:	$nam	esa=nambuf, ess=48., rsa=string, rss=48.
fabblk:	$fab	nam=namblk, fna=file, fns=12.
string:	.blkb	48.
nambuf:	.blkb	48.
file:	.ASCII	/LOOKFORTHIS:/

	.entry lookup,0
parse:	$parse	fab=fabblk, err=bye
search:	$search	fab=fabblk, err=bye
	cmpl	#rms$_fnf,r0
	beql	notfound	
	movl	#1,r0
	ret
notfound:
	movl	#3,r0
	ret
	.entry	bye,0
	clrl r0
	ret
	.end	lookup